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THIS MONTH'S MAGAZINE 

In this month's issue, I would particularly draw your attention to our CAD pogram 
ASTAAD. AS you will see from the illustrations, this program is capable of some 
remarkably sophisticated results for its short length. Because the program is 
controlled by function keys it will only run with O.S. 1.2 and this is also true, 
for the same reason, of our Killer Dice game. We believe that this is justified in 
the interests of presenting really good programs in the magazine. We said last month 
that we shall not be continuing support for O.S. 0.1 after the end of 1983. In any 
case O.S. 1.2 ROMs are readily available from our software address. One further 
point on this month's programs is that both the games, Killer Dice and Galactic 
Invasion, use variable RESTORE statements, and will not work correctly if the DATA 
Statements are renumbered. 


SOFTWARE REVIEWS 

This issue of the BEEBUG magazine is really packed with articles and programs, so 
much so that we had no space left for any software reviews. For this month, we have 
included some short notes on a number of software items in the supplement, and hope 
to return to fuller reviews in the main magazine next month. 


MAGAZINE SUPPLEMENT 

You may have noticed that from the last issue of BEEBUG, the supplement has 
BEEBUG/ELBUG printed at the bottom of each page. ELBUG is the name of the magazine 
that we are producing for members of ORBIT, our Electron User Group. The supplement 
will in future contain items relevant to both groups of users. 


BEEBUG DIARY 

You will notice elsewhere in this issue that we have extended the range of 
discounted items to members. We have also produced a special BEEBUG diary for 1984 
which, amongst other things, contains all the information from the BEEBUG Reference 
Card that was originally published with Vol.2 No.l. | 


ACORN EDUCATION EXHIBITION 
We shall have a stand at this January event (see Events in the supplement) and 
hope to see many of our educational readers there. 


BEEBUG ON TV AGAIN 

Finally, BEEBUG has made another TV appearance. In the BBC TV programme 
"Tomorrow's World" on the 3rd November the presenter, Judith Hahn, demonstrated the 
3D Rotation program by James Hastings from BEEBUG Vol.1 No.1Ø. It was used as an 
example of 3D computer graphics. 


Mike Williams 


HINT WINNERS 
This month's hint winners are D.E.Susans who wins the £10 prize, and J.Pike and 
N.Ahmon who both win a £5 prize. Keep sending those hints in please. 


MAGAZINE CASSETTE 
This month's magazine cassette contains just one extra item, a demonstration 
version of Alien Destroyer, one of the new BEEBUGSOFT games. 
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PUTER AIDED DESIGN 


by Tim Tonge 


gm Aided Design (CAD) is one of the more seen applications of 
computers and one for which the BBC micro has considerable potential. We present 
here a really excellent example of a CAD package which contains all the basic 
drawing facilities. Not only that, but the package will also allow you to produce 
Any Size Text printed at any Angle Anywhere on the drawing, which c the 
origins of the name of the package, ASTAAD. 


INTRODUCTION 
As | you can see from the 
illustrations accompanying this © 


article, the ASTAAD program is capable 
of producing remarkably sophisticated 
drawings for its extremely compact 
size. The program is also well 
structured so that you can readily 
extend the range of facilities to suit 
your own needs. The program runs in 
mode Ø for the maximum resolution, and 
all the drawing is done in black on a 
white background. The various options 
are selected by the function keys plus 
Tab and Copy. 


USING THE PROGRAM 

When the program is RUN, a 
flickering cursor appears at the centre 
of the screen, which can be moved in 
Steps of 10 g.u.(graphics units) by the 
four cursor keys. Function key f5 makes 
the cursor DRAW, £7 makes it DELETE, 
and f4 restores MOVE. The distance from 
the starting point is . shown in the 
top right hand corner, and this acts as 
a ruler. This can be reset to a new 
starting point at any time by pressing 
Tab, and this also happens 


erus caen re oe ee gt on horizontal line to the left. Note that 


using the cursor keys. The ruler is ; 
: Return on its own enters zero, so that 
very useful for measuring parts of a f6 432 «return»? «return» draws a 


drawing and ECE On MEW ORIEL horizontal line to the right. Also both 


positive and negative angles can be 
specified. 


@-6-2 Locomotive - Murt albahn 


Another method of drawing a line, at 
an any angle, is to move to one end of 
the line and press Tab, and then move 
the cursor to the other end, and press 
Copy. To delete the line, press Copy 
again. For greater accuracy, after 
moving to one end of the line, press £6 
and then enter the length in g.u. and 
angle in degrees, each followed by 
Return. For example, f6 234 «return» 90 
<return> gives a vertical line from the 
cursor towards the top of the screen; 
£6 432 «return» 180 «return»? gives a 


The standard characters can be 
entered directly from the keyboard, the 
cursor being moved after each one, 


LG | normally two steps to the right. 
sf | | Underlining needs one Step down, 
(ee [2] jez] of] | | superscripts one step up, and the 


characters ^ / and N can be positioned 
for accents. 


"ASTAAD" itself is brought into use 
by fØ after moving the cursor to the 
required position, and 3 inputs are 
called for. The text input is limited 
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to 41 characters. In response to "Size" any number can be used, 
but between 2 and 3 is the smallest likely to be legible, 
depending on the TV/monitor in use, while 125 almost fills the 
screen with one character. Any angle can be entered, positive or 
negative. Note that text can be underlined using the Tab-Copy 
feature or the f6 routine. Many interesting effects can be 
discovered by experiment. For example, a row of "size 5 


underlines" gives a useful thick line, and with size 8 you can 


draw a frame around your drawing. 


Arrows are often needed on drawings for dimensioning and on 


leader lines pointing to objects. Function key fl draws an arrow | 


at the cursor position after the direction angle has been entered. 


Function key £2 produces circles, ellipses, triangles, 
rectangles, pentagons and other polygons to be drawn around the 
cursor. Three inputs are called for, Horizontal Axis (in g.u.), 
Vertical Axis, and Number of Sides. A few examples show the way:- 

Circle, radius 1@@g.u.: 

100 «return» 1ØØ «return» 30 «return»? 
Ellipse: 

200 «return» 50 «return» 30 «return» 
Square, length of side 3ØØg.u.: 

300 «return» 300 «return» 4 «return» 
Regular pentagon: 

500 «return» 500 «return» 5 «return» 
Vertical line: 

«return» 82 «return» 2 «return» 


Function key £3 enables you to repeat or copy the last shape 
(produced using £f2) at a new cursor position, and is useful for | 
windows in houses, portholes in ships, shading with dots and [ 
angled lines, and so on. If a mistake is made f7 followed by f3 | 


will delete the shape just drawn. 


Circles are needed so frequently that f9 is programmed so that 
only the radius need be entered. Radius=Ø (i.e.f9 <return>) prints 
a dot, and £9 5 «return» produces a useful blob. 


To clear an area of the screen, move the cursor to the bottom left 
hand corner and press TAB, and then move to the top right hand 
corner and press f8. This will clear the rectangular area defined 
by these two opposite corners. Reversing the two corners will 
usually clear the whole screen so be careful! If you want to clear 
the whole screen then Ctrl-L is the quickest way. Escape can be 
used if a mistake is made in the middle of a procedure, or to move 
the cursor to the centre of the drawing area. 


PROGRAM NOTES 
Mode Ø is used in the program for maximum resolution and 
PROCsetup, called at the start of the program initialises the 
variables used and positions the cursor at the centre of the 
Screen. *FX4,2 makes the 4 cursor keys and Copy generate ASCII 
codes, and *FX225,129 causes the function keys to produce ASCII 
codes 129 upwards. X$ and Y$ are the cursor co-ordinates with 
initial mid-screen values. 


The main program repeatedly looks for keyboard input while at 
the same time maintaining the cursor on the screen. Whenever a key 
is pressed the program distinguishes between normal ASCII codes 
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| 
| 


T 


I 
| 
i 
| 
| 
| 
i 
| 
| 
|j 
| 
| 
| 


(less than 128 in value) which are sent 


direct to the screen (these are mainly 
printing characters plus the usual 
control characters), and other inputs 
Such as the function keys, cursor keys, 
Tab and Copy. 


| 


10 REM Program ASTAAD 
20 REM Version Bl.2 
30 REM Author Jim Tonge 
40 REM BEEBUG December 1983 
59 REM Program subject to copyright 
60 : 
70 MODE 0:0N ERROR GOTO 19016 
80 PROCsetup 
90 REPEAT 
109 PROCruler 
118 key=INKEY (Ø) : IFkey<=Ø THEN 270 
120 IF key=9 THEN V-5:Xl$-X$:Yl$-Y$:k 
=1Ø:2=4 
130 IF key<129 PRINT CHRS (key) :X%=X%+ 
2Ø* (X%<125Ø) * (key<>9) :GOTO1109 
140 J$-key-128 
150 ON J% GOTO 180,160,200,220,2390,23 
0,1706,230,190,210,110,260,250,250,250,2 
50 ELSE 1509 
160 PROCarrow:PROCcursor 
178 PROClines:PROCcursor 
180 PROCtext:PROCcursor 
198 PROCdelete: PROCcursor 
200 PROCpoly:PROCshape (H%,V%,G%) : PROC 
cursor 
218 PROCcircle:PROCshape (H%3,V%,G%) : PR 
OCcur sor 
220 PROCshape (H%, V%,G%) : PROCcursor 
230 IF J%>4 AND J%<7 OR J$=8 THEN Z-J 
$-1 ELSE Z=4 
240 IF J$-8 Y=7 ELSE Y=5:y=Y-4 
250 X%=X3-1Ø*(J%=13) * (X3>1Ø) +1Ø* (J$= 
4) * (X$«1260) : Y$-Y$-10* (J$215) * (YS>10) +1 
Q* (JS=16) * (Y3<99Ø) : PLOTZ,X$ , Y% 
260 IF J$z12 k=Ø:PLOTV,X1%,Y1%:IF V=5 
THEN V=7 ELSE V-5 
270 PROCcursor 


280 UNTIL FALSE 
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branches to the 
procedures and line drawing routines 
depending on the value of J% (in the 
range 1 to 16). All cursor keys 
movements are handled by routines 
Starting at line 250. 


corresponding 


290 END 
300 : 
310 DEFPROCsetup 
320 VDU5 
330 VDU23; 8202; 0; 0; 0; 

340 VDU19,0,7;0;19,7,0;0; 

350 *FX4,2 

360 *FX225,129 

370 X%=63Ø:Y%=49Ø:Y=5:2=4:J%=Ø:Kk=Ø:B% 
=Ø:T7%=Ø:3j=Ø:X1%=63Ø:Y1%=49Ø 

380 ENDPROC 

39Ø DEFPROCruler 

4ØØ IF J$«13 OR J%>18 ENDPROC 

41Ø IF k=1Ø THEN 430 ELSE 420 

420 IF J%<>j THEN Xl$-X$:Y1$-Y$ 

430 B£-SQR((X12-X2) ^2* (Y1$-Y2$) ^2) 

440 VDU4: @3=1 31082: PRINTTAB (60,1) BS+1 
Q-k:VDU5: j=J3 

450 ENDPROC 

460 DEFPROCtext 

479 IF J%<>1 ENDPROC 

480 VDU4,28,6,1,59,1: INPUTTAB (6,1) "Te 
xt? "T$,"Size? (2 to 125): "S%,"Angle( 
deg.) ?"T%:CLS:VDUS, 26 

490 E=S%*SIN (RAD (TS) ) :F=S%*COS (RAD (T$) ) 

500 FOR C$-1 TO LEN(TS) 

510 A%=&BFØØ +ASC (MIDS (TS,C%,1)) *8 

520 FOR P$ =ØTO 7:FOR Q% =Ø TO 7 

530 MOVE X$-P$*E-Q$*F4C$*7.6*F,Y$-O2* 
E-PZ*F4C$*7.6*E 

540 IF S$«5 THEN PROCdot ELSE PROCSq 

550 NEXT Q%,P%,C% 

560 ENDPROC . 

570 DEFPROCdot 

580 IF (2^Q$ AND A%?P%)<>@ THEN PLOT6 
5,0,0 
590 ENDPROC 
600 DEFPROCS 
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,E,BE:PLOT81, (E-F) ,- (E+F) : PLOT81,F,E 

62Ø ENDPROC 

63Ø DEFPROCarrow 

640 IF J$<>2 THEN ENDPROC 

650 VDU4,28,6,1,59,1: INPUTTAB (6,0) "An 
gle of arrow?  "W$:CLS:VDU5 

660 az15*COS (RAD (W3+35) ) sb=15*SIN (RAD 

(W%+35) ) 3c215*COS (RAD (W$-35) ) :d=15*SIN 
(RAD (W$—35) ) 

670 PLOTy,-a,-b:PLOTØ,a,b:PLOTy ,-c;-d 
:PLOTØ,c,d:VDU26 

68Ø ENDPROC 

690 DEFPROCI1 ine 

700 IF J%<>7 THEN ENDPROC 

710 VDU4,28,6,1,59, 1: INPUTTAB (6,0) "Le 
ngth? "L£,"Angle?(deg.) "N%:CLS:VDU5 


720 LX-L$*COS (RAD (N%) ) : LY=L3*SIN (RAD ( 


N%) ) : X2%=X%+LX: Y23=YS+LY 3 PLOTY,X2$,Y2$: 
X%3=X2%:Y%=Y2%:VDU26 

730 ENDPROC 

740 DEFPROCpoly 

750 IF J%<>3 THEN ENDPROC 

760 VDU4,28,6,1,59,1: INPUTTAB (6, 0) "Ho 
rizontal Axis?"H%,"Vertical Axis?" "V$,"N 
O.of sides (30-circle or ellipse) ?"G%:CL 
S: VDU5, 26 

770 IF G%=4 THEN H$-H$2/SQR(2):V$-V2/S 
QR (2) 

780 ENDPROC 

790 DEFPROCshape (H% , V$,G$) 


TAPE TO DISC TRANSFER - 


Using this facility it 


having to load the file into memory. It is necessary to execute *TAPE and 


select filing systems as required e.g. 


10 *TAPE 

20 IN-OPENIN ("ADVENTR") 
30 *DISC 

40 OUT-OPENOUT ("ADVENTR" ) 
5Ø *TAPE 

60 REPEAT 

70 C=BGET#IN 


Having performed this operation 


61Ø IF (2^Q$ AND A%?P%)<>@ THEN PLOTØ 


J.A.Knaggs 

It is possible to have a cassette file and a disc file open at the same time. 
is possible to transfer files from tape to disc without 
*DISC to 


800 IF NOT(J%=3 OR J$-4 OR J$=1Ø) THEN 
ENDPROC 
810 LOCAL I$,K$,M$,N,C,S,B,D,R,T 
820 N=2*PI/G%:C=COS(N) : S=SIN(N) :B=1/ 
SOR (2) :D=1/SQR (2) 
830 FOR I%=1 TO G%+1 
840 R=B*C-D*S: T=B*S+D*C 
850 B=R:D=T:K%=H%*B+X%:M%=V3*D+Y% 
860 IF I%3>1 THEN PLOTY,K$,M$ ELSE MOV 
E K$,M$ 
870 NEXTIZ 
880 ENDPROC 
898 DEFPROCcircle 
900 IF J%<>1Ø THEN ENDPROC 
910 VDU4,28,6,1,59,1: INPUTTAB (6,9) "Ra 
dius of circle? "R%:CLS:VDU5, 26 
920 H$-R$:V$-R:G$-30 
9360 ENDPROC 
940 DEFPROCdelete 
950 IF J%<>9 ENDPROC 
960 VDU24,X1%:Y1%:X%;Y%: :CLG: VDU26 
970 ENDPROC 
980 DEFPROCcursor 
999 PLOT4,X%, Y%+15:PLOT6,X%, Y3-15: PLO 
T 4,X%-15,Y%:PLOT6,X%+15, Y%: PLOT4,X%, Y% 
+15: PLOT6,X%, Y%-15: PLOT4,X%-15, Y$3: PLOT 
6 ,X%+15,Y%: PLOT4,X%, Y% 
1900 ENDPROC 
1010 IF ERR<>17 THEN ON ERROR OFF:MODE 
7:REPORT:PRINT" at line ";ERL:END 
1020 GOTO 80 


80 *DISC 

90 BPUT#OUT,C 
1900 *TAPE 
118 UNTIL EOF#IN 
120 CLOSEHIN 
130 *DISC 
140 CLOSE#OUT 


it is then necessary to set the load and execute 
addresses of the file. This can be done with OSFILE calls 2 and 3. 


address of &1900 and an execute address of &1D82 use: 


10 OSFILE-&FFDD 
20 DIM PARAM 18,NAME 8 
30 SNAME-"ADVENTR" 

40 !PARAM=NAME 

50 PARAM!2-&1900 

60 PARAM!6=&1D82 
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70 X%=PARAM MOD 256 
80 YS=PARAM DIV 256 
98 AS= 
1ØØ CALL OSFILE 


120 CALL OSFILE 


To set a load 
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by Douglas Nunn 


Here is a program with a really seasonal flavour. Often 
we are unable to publish good music programs in the magazine 
because of their length or because of the problems of 
copying multitudes of data staements with accuracy. This 
program is both short and easy to copy. The program will provide 
you with an excellent rendering of "The 12 Days Of Christmas" 
complete with verses that scroll up the screen in time with the 
music. If you provide your micro with a loudspeaker interface, 
as described elsewhere in this issue, then you could be really 
surprised at the musical quality of the BBC micro. Even without 
an external speaker, the results are impressive. 


The program itself is quite interesting. The music is 
generated in three part harmony using a coding system. This is 
the function of the procedure PROCplay, which appears frequently 
in the program. The three parameters of the procedure code the 
notes played by the three music channels. When you are typing in 
the program it is important to do this accurately, especially 
where the parameter strings for PROCplay are concerned, if you 
are to obtain the best results. Spaces are significant here. The 
program also very neatly links the playing of the notes with the 
display of the verses on the screen. 


Once the program is loaded it is quite interesting to 
experiment with it in immediate mode. Just type in 'PROCstart' 
to set everything up and then calling other procedures like 
PROCfive or PROCtwelve will produce appropriate parts of the 
music. The variable D$ specifies the verse number (1 to 12) and 
Zé controls the speed of the music (4 is the normal speed, 
increasing the value decreases the speed). Varying the value of 
T$ (set to 139 initially) will alter the octave range. 


16 REM Program 12 DAYS OF CHRISTMAS 
20 REM Version BØ.4 

30 REM Author Douglas Nunn 

40 REM BEEBUG December 1983 

50 REM Program subject to Copyright 


1050 ENDPROC 

19060 : 

1078 DEF PROCinit 

1080 DIM AS (19) ,S$ (2) , PS (11) 
1090 Z%=4:WIDTHØ 


68 : 1100 FOR E$-26TO8:REPEAT UNTIL ADVAL(-E 


70 REMISS OF ME NOT TO WISH EVERYONE 3) =153 NEXT 
A VERY MERRY XMAS AND A HAPPY NEW YEAR 111Ø ENDPROC 
80 : 1128 : 
90 REMARKABLY WELL PUT - Ed. 1138 DEF PROCdata 


109 : 1149 FOR E$=ØT01Ø:READSS:AS (E$) =S$+"," 


118 MODE 7:ON ERROR ON ERROR OFF :MODE 
7:REPORT: PRINT" at line ";ERL:END 

120 PROCstart 

130 PROCmusic 

149 VDU28,0,24,39,0 


+CHRS19+CHRS1 3 : NEXT 
35+"rings, "+CHRS1Ø+CHR$1 3 


1178 T$-139 


150 VDU23;11,255,0;0;0; 1188 ENDPROC 
160 END 1199 : 
170 : 1209 DEF PROCfrontpage 


1150 AS (3)="Five"+CHR$1 31+"gold"+CHR$1 


1160 FOR E$-0TOll:READ PS (E%) : NEXT 


1000 DEF PROCstart 
19818 PROCinit 

1020 PROCdata 

1030 PROCfrontpage 
19040 VDU23;11,9,0;0; 0; 


1218 FORI%=@TO1 : PRINTTAB (0, I$) ; : VDU129 
,157,13Ø, 141 : PRINTTAB (8,1%) ; "Twelve Day 
s of Christmas";:NEXT I2:VDU28,2,24,39, 
2 
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l=soft : 15=loud ) "V%:UNTIL V%<16 AND V 
3>Ø:CLS 

1230 ENDPROC 

1240 : 

1250 DEF PROCmusic 

1260 FOR D$-1TOl12 

1270 IF D%=12THEN PROCtwelve:GOTOl31Ø 

1289 PROCfirst:IF D%=1|THEN133Ø 

1290 IF D%<5 PROCplay("Q-","7-","5-") : 
FOR E%=D%TO2STEP- 1: PROCunder5: PRINTAS (E 
.$-2) ; sNEXT: PROCp Lay ("Q-","7-","7-") : GOT 
01334 

1309 PROCplay ( Wat ; Liy 2 NS.) 

131Ø IF D%>5 THEN FOR E%=D%TO6STEP-1:P 
ROCover 5: NEXT 

1320 PROCfive 

1330 IF D%=12 PROCplay ("Q-C-H-H-H!" ,"4 
-€&-Q-Q-Q1" ,"4— (-9-$S-$1") : PRINT ' TAB (14) " 
< THE END ar ELSE PROClast:IF (D%+1) MOD 
320 PROCplay("<-<-","6-6-",",-,-") :T3=T 
$-4 ELSE PROCplay ("<-<-","4-4-","5-5-") 

1340 NEXT D$ 

1350 ENDPROC 

1360 : 

1370 DEF PROCtwelve 

1380 Z$z8:PROCplay(" -71717—-7-«1«1" ," 
-71514-5-4-7-"," — — — -2-Ø-/-") : PRINT ' 
'"On the"CHRS129P$ (D$-1) CHRS135"day of 
Christmas"'" my true love gave to me," 

1399 PROCDIay(" S-41«-| | et" "4-577991 |7- 
JET 19 

1400 Z2$-2$/2:PROCplay('"»-»-Q-Q-A-A-5-» 
-.",79.—;—9—7—-8-2:-8-6-",")-4-)-(-)-4-,-.- 
") 32$=Z2%*3: PROCplay ( "Q—-0-0-0-0-0-0-0-1 , 
17-5; ~9~<-6-6-6-6-—", "0 1 Ø-Ø---&-&-&-&-") 

141Ø PROCplay(" -"," -"," -") 3Z%=2 

1420 ENDPROC 

1430 : 

1440 DEFPROCfirst 

1450 PROCplay("71717-7-"," - -4-4-"," 
- -$-$-") 

1460 PRINT''"On the"CHRS (129+D%MOD6) PS 
(D$-1)CHRS135"day of Christmas"'" my tr 
ue love gave to me," 

1478 PROCplay("<!<!<-<!<!l<1>-@-A->-@-@ 
Qð = ji an -;-9-9- ka ps QUUM MO 
$-$- - -$-$- -4-$-$-$-") 

1480 ENDPROC ` 

14960 : 

1500 DEFPROClast 

1518 PROCplay("A-C-C-E-",";-4-;-9-","& 
=(= (=)=) 

1520 IFD%-1PRINT"and "; 

1530 PRINT"a partridge in a pear tree. 
GE 

1540 PROCplay("A-Q-«-5-»-«-«-«-«-","»— 
€-7-1-5-4-4-4-4-" ,") -+-+~+-+-S-S-S-S—") 

1550 ENDPROC 

1569 
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1578 DEFPROCunder5 

1580 PROCplay("C-C-»-Q-A-A-","4-4-5-«- 
i-i-," (-(-)-)-+-+-") 

1598 ENDPROC 

1600 : 

1610 DEFPROCfive 

1620 IFD$-12 THEN Z%= 

1630 PROCplay("C-C-C-C-E-","5;-5;-;-;-9- 
"S" (-(- (- (-&-") s PRINTAS (3) ; : PROCplay ("B 
-B-B-C-C-C-C-C-C-C-C-" j"6-»5-€«-;-9-; -<-> 
-€-;-9-" ,"&-&c&-t-&-t---/-——4-)-") 

1640 IF D%=12 THEN Z%=6 

1650 PROCplay("C-A-Q-»-«-«-",";—;—7-;- 
9-9-" ," (= (- (2 (-——---") s PRINTAS (2) ; å PROCp 
lay ("A-A-9-9-<- M" o" EE EE PL Aad 
&-&- (— (-") :PRINTAS (1) ; 3: IF D2-12 GOTO167 
Ø ELSE PROCplay(">-<-;-9-7-","6-4-2-9-/ 
=" Ux * Sg &—4-1")  PRINTAS (Ø) ; : PROCplay (" 
7-(-" MD jM) k 

166Ø ENDPROC 

1678 PROCplay(">-<-;-9-7-","2-7-7-Ø-/- 
Mg (-*-+1") : PRINTAS (Ø) ; : PROCplay (" 
-Q-A-C-C-E-A-"," -7-9-:1:-9-«-","4-.4-)- 
(- (-)-&-") 

1680 PRINT"and a partridge in a pear t 
ree," 

1698 PRÓCplay("Q-«-5-»-«-«-«-«-«1","7— 
9-;-5-4-4-4-4-4—41" "4-4 14+-+-S-S-S-S-S} 
") 

1700 ENDPROC 

1718 : 

1720 DEFPROCover5 

1730 PROCplay("C-C-»-Q-A-","4-9-9-:-;—- 
ww (2) 2) -*-4—") : PRINTAS (E2-2) ; : PROCplay 
("5-1 He pu, av) 

1740 ENDPROC 

1750 s 

1768 DEFPROCplay(S$(9) ,SS(1) ,S$ (2)) 

1770 LOCAL E$,F$,N$,P£,0$,N$,V 

1780 FOR E%=1 TOLENSS (Ø) STEP2 

1790 FOR F$-0TO2 

1800 P%=ASC(MIDS (SS (F2) , ES) ) : 0$=ASC (MI 
D$ (S$ (F$) ,ES+1) ) 

1818 N3=4*P%-T%:V=V%* (PS<>32) 

1820 IF Q%=AS IN SOUNDI *F$,0,0,1: GOTO 
1840 

1830 IF Q$-ASC"-" SOUNDI-F$,V,N$,2$ 
SE SOUND]-«F$,V,N$,Z2$-1:3 SOUND] *F$,0,0, 

1840 NEXT F$:NEXT E% 

1850 ENDPROC 

1860 : 

1870 DATATwo turtle doves,Three french 

hens,Four calling birds,!,Six geese a- 
laying,Seven swans a-swimming,Eight mai 
ds a-milking,Nine ladies dancing,Ten lo 
rds a-leaping,Eleven pipers piping,Twel 
ve drummers drumming 

1888 DATAfirst,second,third,fourth,fif 
th,sixth,seventh,eight,ninth,tenth,elev 
enth,twelfth 


EL 
1 
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i | — EEE 
å V THE TELETEXT MODE (PART 3) 
by Mike Williams 


In our previous two articles on the Teletext Mode we have introduced the basic 
features of both text and graphics. This month we cover some less well known 
features of the Mode 7 and look at some useful programming techniques. 


Those of you who have read both of 
the two previous articles in this 
series should now be familiar with the 
use of both text and graphics in this 
particular mode. If you have referred 
to the User Guide about Teletext Mode 
then you may well have noticed that 
there are still a few control 
characters that we haven't yet 
described. 


HOLD GRAPHICS CHARACTER 

The first new control character is 
called ‘hold graphics' and has the 
value of 158. You should by now be 
familiar with the fact that every 
Teletext control character occupies a 
position on the screen which normally 
appears as a space. Often this space 
will cause us no problems at all, 
particularly when dealing with text, 
where words are usually separated by 
Spaces anyway, and thus control 
characters can easily be slipped in 
between, appearing on the screen as the 
Spaces we require. 


With graphics the problem of an 
unwanted space is more likely to arise. 
Try typing the following line, in 
immediate mode, into your micro: 

PRINT CHR$145; STRINGS (36, CHR$240) 
The graphics character with value 240 
is a short horizontal line one pixel in 
height. You should find that the 
instruction produced a line of these 
characters across the screen in red 
(because of the 145 control code). 


Now suppose that what we really want 
is a line which is half red and half 
blue. Try the following instruction: 

PRINT CHR$145; STRINGS (18, CHR2240) ;CH 
R$148; STRINGS (18, CHR$240) 

You should now find that the first half 
of the line is in red, and the second 
half of the line is in blue. 
Unfortunately, the two halves are 
separated by a space. This is where the 
"hold graphics' code (158) can help. 


Try typing this variation of the last 
instruction into the computer: 

PRINT CHRS158;CHRS145; STRINGS (17,CHR 
$240) ;CHR$148; STRINGS (18,CHRS249) 


You should now find that you have 
displayed on the screen exactly what we 
have been trying to achieve, a line of 
graphics characters which is half red 
and half blue with no space in between. 
Once the 158 control code has been 
placed on a line on the screen, any 
subsequent graphics control character 
is represented by the last displayed 
graphics character instead. This is why 
in the example above, the number of 
graphics characters in the first half 
of the line was reduced from 18 to 1,7 
as the 148 control code is represented 
on the screen by a copy of the last 
graphics character, another 240. There 
is a second control character called 
'release graphics' with a value of 159. 
This is used to cancel the effect of a 
'hold graphics' character placed 
earlier on the same screen line. 


This use of the 'hold graphics' 
character can be utilised wherever 


there is the need for adjacent graphics 
characters to be of different colours, 
and is illustrated in the program, 
called FLAGS, which displays on the 
Screen a series of randomly coloured 
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and striped flags. The "hold graphics' 
character is needed to allow the 
adjacent vertical stripes to be of 
different colours and different again 
from the flagpole. If you type in the 
program and run it you will see the 
colourful results produced. 


10 REM Program FLAGS 

20 REM Version Bl.1 

30 REM Author Mike Williams 

40 REM BEEBUG December 1983 

50 : 

100 MODE7:DIM col (3) 

110 ON ERROR GOTO 240 

1290 FOR I=Ø TO 24:VDUI158,13,10:NEXT I 

130.1 

149 x-2:y-l:clzRND(7)-1:c2-RND (7) -1:c 
3zRND (7) -1 

150 REPEAT 

160 PROCflag(x,;y,cl,c2,c3) 

170 cl1=(cl+1)MOD7:c2= (c2*2) MOD7:c3= (c 
3+3) MOD7: x=x+19 

180 IF x>35 THEN x-2:y-yt8 

19Ø UNTIL y>2Ø 


200 PRINT TAB(12,24);"Coloured Flags"; 


219 REPEAT UNTIL FALSE 
220 END 
230 : 
240 ON ERROR OFF sMODE7 
250 IF ERR<>17 THEN REPORT: PRINT" at 
line ";ERL 
260 END 
279 : 
1000 DEF PROCflag(x,y,col(1) ,col (2) ,co 
1(3)) 
1919 LOCAL c,i 
1020 FOR i-y TO y+2 
1030 PRINT TAB(x-1,1); 
1040 FOR c=1 TO 3 
1050 PRINT CHRS (col (c) +145) ;CHRS (255) ; 
1860 NEXT c,i 
1970 FOR i-y TO y+6 
1080 PRINT TAB(x-*5,i);CHR$151;CHRS181; 
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1108 ENDPROC 


PROGRAM NOTES 

Each flag consists of three vertical 
stripes with the colours chosen 
somewhat randomly. Examples will 
normally appear in which two of the 
colours are the same or the same as the 
flagpole itself, which is always in 
white. Each flag is drawn by a 
procedure called  PROCflag, defined in 
lines 1ØØØ to 1180. The procedure uses 
5 parameters, the position of the top 
left hand corner of the flag (specified 
as x and y for horizontal and vertical 
positions), and the colours for the 
three stripes. The | colours are 
specified as a number in the range Ø to 
6, and then 145 is added to this within 
tne procedure. 


Each flag is 6 characters long by 3 
characters high, plus the flagpole 
which is 7 characters high. Each row of 
the flag is printed in turn and 
consists of a colour control character 


followed by the graphics character 255 
(all 6 pixels) for each of the three 
colours in turn. The  flagpole is 
produced separately and consists of a 
double column of 'white' graphics (151) 
followed by the graphics character 181, 
which is one pixel wide and three 
pixels high. With nothing else in the 
program the stripes in the flag would 
be separated by spaces marking the 
positions of the control characters. 
The main program, however, starts off 
by placing a ‘hold graphics' character 
at the start of each line on the 
Screen, in line 120, so that each 
colour control character is represented 
on the screen by a repeat of the 
preceding graphics character. 


Line 140 selects the starting 
position for the first flag and selects 
three colours at random (the values cl, 
c2 and c3). The loop from line 150 to 
198 then displays each flag in turn, 
changing position and changing the 
colours of each flag. You can terminate 
the program by pressing Escape. 


CONCEAL DISPLAY CHARACTER 


The second new control character 
this month is called the 'conceal 
display" character and has a value 152. 
Once placed on tne screen everything 
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else following on that line will be 
hidden from view until the next colour 
control character. This allows items on 
the ` screen to be concealed, and 
revealed only when the 152 control 
character is overwritten by another 
character. This can be very useful in 
games like battleships where you are 
trying to locate hidden objects. The 
same feature can also be used to make 
things flash on the screen at a rate 
controlled by the program. Try typing 
the following short program FLASH into 
your micro, and then running it: 


18 MODE7 ; 

20 PRINT TAB(5,5);"Flashing" 

30 FOR I=1 TO 500 

40 PRINT TAB(4,5); 

50 IF I MOD 2-0 THEN VDUI52 ELSE VDU 


60 Z-INKEY (50) 
70 NEXT I 
80 END 


The word 'Flashing' is displayed on the 
Screen. By  alternately preceding this 
with either the "conceal display' 
character (152) or magenta text (133), 
the word appears to flash. The rate of 
flashing is controlled by the value in 
the INKEY statement at line 6@. Larger 
values will produce a slower rate of 
flashing and smaller values a higher 
rate. Try experimenting with this and 
see the results.This can be achieved 
more easily using code 136 for flashing 
text, although you cannot now control 
the rate of flashing. 


INTERESTING GRAPHICS TECHNIQUES 

In the remainder of this month's 
article I want to look at some of the 
problems that can arise in using 
Teletext Mode graphics, and some of the 
techniques that can help. Those of you 
with access to Ceefax, Oracle or 
Prestel (which all use Teletext Mode 
displays) will have seen some of the 
graphics designs that can be produced, 
some good and some bad! Designing good 
Teletext graphics displays is not an 
easy job. 


By way of illustration I shall take 
as my task the design of a fish, which 
I want to display anywhere I choose on 
the screen and in any colour. This 
might be the basis of some simple 
computer game or as part of the front 


page display of a program. Using BBC 


Basic it is sensible to define a 
procedure, with parameters for the 
colour and the position of the fish, 
which should then make it easy to place 
the fish anywhere on the screen and in 


any colour. Before I can do that I also 


need to define the fish in some way and 
this will be best achieved with another 
procedure. In the absence of a good 
Teletext Editor, the only way I know is 
to sit down with squared paper and a 
pencil and draw roughly the shape you 
want. It is sensible to decide on a 
grid of characters that will contain 
the shape and I chose 5 rows each of 12 
characters. You can see my design in 
the diagram. 
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The next step was to work out, with 
the help of the User Guide, all the 
corresponding graphics codes. These are 
contained in 5 lines of DATA statements 
in the program. The procedure to define 
the fish establishes an array called 
fish$(5) which is then programmed so 
that each of the array elements from 
fish$(1) to fish$(5) contains a string 
of 12 characters for rows 1 to 5 of the 
fish. I can now write the procedure to 
display the fish. This will print each 
row of the fish in the right position 
on the screen, each row being preceded 
by the appropriate graphics colour 
control code. Here, one small problem 
arises. If the procedure specifies 
(x,y) as the position of the fish, 
should this be literally where the fish 
itself starts, or should this first 
position contain the colour control 
code, which won't of course be visible 
on the screen. There is no single 
answer to this, but whichever choice 
you make, you must follow this 
consistently. I prefer to place a shape 
in the (x,y) position and hence the 
control code goes into position 
(x-1,y). If you do this you must now 
make sure that you don't position a 
shape too close to the left hand side 
of the screen, so that position (x-1,y) 
is off the screen. Here then are the 
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two procedures to define and place a 
fish, | complete with the | DATA 
Statements. Å 


1000 DEF PROCdefinefish 

18610 LOCAL i,j,f$,fishS 

1020 FOR i=1 TO 5:fishS$z"" 

1030 FOR j=] TO 12 

10640 READ £%:fish$=fishS+CHRS (f£) 

1050 NEXT j:fishS(i)-fish$ 

1060 NEXT i 

1870 ENDPROC 

1080 : 

1890 DEF PROCplacefish(c,x,y) 

1180 LOCAL i,j 

1119 FOR i=1 TO 5 

1120 PRINT TAB(x-1,i+y-1) ;CHRS(144+c) ; 
fishS (i); 

1130 NEXT i 

1148 ENDPROC 

1150 : 

1160 DATA 160,224,254,255,255,252,176, 
160,160,160,160,250 

1470 DATA 224,255,235-255,255,255,255, 
244,160,160,248,255 

1180 DATA 254,255,255,255,255,255,255, 
255:255;255,255,255 

1198 DATA 160,171,255,255,255,255,191, 
163,160,160,171,255 

1200 DATA 171,239,255,255,175,161,16Ø, 
16Ø,169,16Ø,16Ø, 235 


I have written a short program which 
illustrates the use of these two 
procedures by placing a number of blue 
fish on the screen against a yellow 
background. 


10 REM Program FISHI 
20 REM Version Bl. 
30 REM Author Mike williams 
40 REM BEEBUG December 1983 
50 : 

100 MODE7:DIM fishø (5) 
1198 ON ERROR GOTO 229 


128 FOR i=Ø TO 23:vDU1l47,157,13,1Ø:NE 
XT 1:VDU147,157 

130 PRINT TAB(12,Ø) ;CHRS (132) ; "Flying 
Fish" 

140 PROCdefinefish 

158 FOR y=1 TO 19 STEP 6 

160 IF (y-1)MOD12<>Ø THEN PROCplacefi 
sh(4,14,y) ELSE PROCplacefish(4,5,y):PR 
OCplacefish(4,23,y) 

170 NEXT y 

1868 : 

1980 REPEAT UNTIL FALSE 

200 END 

210 s 

220 ON ERROR OFFs:MODE7 

230 IF ERR<>17 THEN REPORT:PRINT" at 
line ";ERL 

240 END 


There is a further point to notice 
here. The yellow background is 
produced, using the VDU command in line 
120, by writing the appropriate control 
codes (147,156) down the left hand side 
of the screen. If you place such codes 
on the very bottom line of the display 
you must avoid following them with 
<return><linefeed> as this will cause 
the screen to scroll up one line. Here, 
I have dealt witn lines Ø to 23 in a 
loop and then added the codes for the 
last line at the end. Problems can 
similarly arise if you try to print a 
character in the very last position on 
the bottom line, as the cursor 
automatically moves to the beginning of 
the next line down, and again the 
Screen will scroll. 


An interesting alternative technique 
for defining and displaying our fish is 
to treat the 5 rows of 12 characters as 
a text window. All the 60 characters 
that make up the fish are now assigned 
as a single character string to the 
variable fishS. By defining a text 
window of the right size and printing 
fishS from the top left hand corner, 
all the characters of the fish are 
quickly placed in the correct 
positions. In order to avoid the 
scrolling problems described above the 
text window is defined to be one line 


lower than might appear necessary. The 
colour control codes are first placed 
in their right positions before 
displaying the fish and then the text 
window is restored to the default of 
the whole screen area. 
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1000 DEF PROCdefinefish 

1910 fishS=""sFOR i-1 TO 66 

1020 READ £%:fishS=fishS+CHRS (£3) 

1030 NEXT i 

1840 ENDPROC 

1050 : 

1960 DEF PROCplacefish(c,x,y) 

1078 LOCAL i,j 

1088 FOR i=Ø TO 4:PRINT TAB(x-1,y-*i);C 
HR$(1444c) ; : NEXT i 

1898 VDU28,x,y+5,x+11,y,3Ø:PRINT fish$; 

1108 VDU26 

1118 ENDPRCC 


One consequence of this method, 
besides using fewer instructions and 


being quicker, is that any fish can be 


rapidly removed from the screen by 
redefining its text window and 
executing a CLS command. This is much 
simpler and quicker than replacing 


colour characters by conceal characters 
in the first version of this program. 
You might like to write a procedure 
called PROChidefish(x,y) to do this for 
each of the two versions of the fish 
program and compare them together. 


1120 s 
1130 DATA 160,224,254,255,255,252,176, 
160,160,160,160,250 

1140 DATA 224,255,235,255,255,255,255, 
244,160,160,248,255 

1150 DATA 254,255,255,255,255,255,255, 
255,255,255,255,255 

1160 DATA 160,171,255,255,255,255,191, 
163,160,160,171,255 

1170 DATA 171,239,255,255,175,161,1690, 
160,160,160,160,235 


TAPE RECORDER REVIEW - BEEBUG Vol.2 No.5 | 
Since our review we have had the opportunity of trying a second Data Recorder from 
Acorn and this has proved completely reliable in use. An almost identical tape 
recorder under the brand name Network (model NW9ØØ) is available from Argos and 
other stores at a price of approximately £22. This does not have a VU meter but does 
have a built in microphone for audio purposes. 


Enhancement: 

In line 280 of the program, the offset variable, OS%, was set at 1542  (&606hex) 
with the program in mode 2. Mr G.P.Ball of Leicester has calculated the offset 
values in other modes as follows: | 

MODE OFFSET 

Ø 1&2 1542 (&6@6hex) 

2054  (&806hex) 
2820 (&BØ4hex) 
30976 (&cØ4hex) 
10248 (&2808hex) 


I OY i» CO 
g^ 
Ui 


The formula for character resolution is S/C where 'S' is the number of characters 


per line for screen mode and 'C' is number of characters per line set by CRTC for 
mode. 


Correction: 


The parts list on page 20 incorrectly states the Maplin part number for the 
18 SWG wire. It should read BL12N. We apologise for any inconveniance caused. 
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Reviewed by Sheridan Williams 


The BBC Micro Book - Basic, Sound & 
Graphics by  J.McGregor & A.Watt, 
published by Addison Wesley at £7.95. 
ISBN Ø-2Ø1-14Ø58-6 

Cassette also available at £7.95. 


For those just starting with the 
Beeb this book has an easy style. It 
covers Basic in a good manner using 
meaningful variable names right from 
the start. 


This book, both text and programs, 
appears to me to have been produced 
using a daisy wheel printer. This is 
also true of the two following books. 
In this particular case unfortunately, 
the print wheel used did not have some 
of the characters used on the Beeb and 


the listing on page 153 contains some 
weird characters. The book includes 
several black and white screen 
photographs showing some of the results 
from the programs. 


A major disappointment to me is the 
lack of a good description on files. I 
was just getting into their description 
when it stopped. Files need at least a 
couple of chapters. 


The index and contents pages are 
generally good, although the index 
doesn't always send you to the correct 
page. There are some extra blank pages 
at the end of the book to make your own 
notes, a very useful feature. 


Advanced Programming Techniques for the 
BBC Micro by J.McGregor & A.Watt, 
published by Addison Wesley at £7.95. 
ISBN Ø-2Ø1-14Ø59-4 

Cassette also available at £7.95. 


This book is a followup from the one 
reviewed previously. It deserves the 
title "Advanced", but this should not 
put you off buying it. On the other 
hand you must have mastered most 
ordinary programming techniques before 
you read this book. It is a very 
readable book with several very 
interesting chapters. 


There are so many good points it is 
difficult to pick a few to mention. 
However here goes - a good LOGO 
interpreter, and good chapters on 
recursion, sorting and searching. There 
is even a mention of PLOT 92 for 
filling. 


Again I was very disappointed at the 
lack of a chapter on files. Surely in 
an Advanced book this is essential, 
especially as this topic was so poorly 
covered in "The BBC Micro Book". I can 
thoroughly recommend this book despite 
this fact. 
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BBC Micro Graphics and Sound by Steve 
Money, published by Granada at £6.95. 
ISBN Ø-246-12156-4 


I was not very impressed with this 
book. There are lots of niggling little 
points such as FOR loops for delays 
used instead of  INKEY; poor print 
quality of program listings; use of the 
variable 0; errors in Basic statements; 
use of crossed zero in the text 
sometimes, and sometimes not; not much 
use made of meaningful variable names. 


This book assumes a knowledge of 
programming, and a familiarity with the 
Beeb, but for the user who has learnt 
to program in a Structured way, the 
book will probably kill off these good 
habits. 


For a book half devoted to graphics 
it has surprising omissions. For 
instance there is no mention of 
shifting of the graphics origin; no 
mention of PLOT parameters 72-79 or 
88-95. There is no mention of downwards 
or sideways scrolling. On page 13 it 
implies that OS 1.0 has been used to 
test programs rather than OS 1.2. In 
several places it mentions the use of 
the Epson MX80, and yet doesn't give a 
Screen dump. 
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BBC Basic by R.B.Coats, 
Edward Arnold at £5.95. 
ISBN Ø-7131-3497-6 


published by 


This is the cheapest of the 5 books 
reviewed here and represents good value 
for money. One of the best points with 
this book is the many example programs, 
some of them quite long, together with 
a description of how they were 
constructed. There is also a good 
chapter on "testing and debugging", 
both points which are severely 
neglected in most books. 


There are one or two points that I 
was not too keen on. For example, Mr 
Coats states that BBC Basic provides a 
special variable for formatting 
numbers. However, he then states "this 
is beyond the scope of this book". I 
find this a strange statement when this 


is a very useful command. This book 
again has a poor section on files. 
Subroutines are mentioned before 


procedures, when one might question why 
on earth subroutines are mentioned at 
all. 


0090900090909 00770070570 007070 e 0 0 0 c0 o e o 97a «o e o o o 0 c o c c" oc"e c e" e" e" e" e". 
o aoo 0090€ 
€ 0 e 0 6 O D 9 OO O OO 9 O e 69 


ot 0 0 0 9 
DOOO0 
DOLOS 


When entering data using INPUT and INPUTLINE, the TAB statement can be used to 
position the printed text and the input itself e.g. 
INPUTLINE TAB(1Ø,5) "ENTER NAME"TAB(5,7) AS 


P.G. Barnes 


2ototstateteratasgete 
000 Ú 
totes e"o o o o hon 


Advanced Graphics with the BBC 
Model B Microcomputer by I.O.Angell & 
B.J.Jones, published by Macmillan at 
the price of £10. 

ISBN Ø-333-35Ø52-9 (book) 

ISBN 0-333-35053-7 (cassette 1) 

ISBN Ø-333-36141-5 (cassette 2) 

Each cassette costs £9.99. 


This is a good book with a really 
superb two level index - a normal one, 
and an index to all the procedures used 
in the book. 

There is quite an emphasis on 
mathematics in this book, more so than 
in McGregor's Advanced book. This is 
necessary as the book concentrates on 
graphics whereas McGregor's book covers 
features other than graphics. This book 
covers graphics in great detail, and 
will provide you with lots to think 
about and try. However the price is 
pretty hefty at £10. Some of the 
programs in the book are very long so 
it makes sense to supply these on 
cassette. 
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CONCLUSION 3 
My favourite book is by Angell & 


Jones on Advanced Graphics. This is 
because of my interest in graphics, 
though you do need a mathematical 


background to make the most of this 
book. For the beginner I can recommend 
"The BBC Micro Book" as it starts from 
Scratch and manages to cover so many 


topics. What a shame that not a single 
book covers the topic of files 
adequately. Some of the books scratch 


the surface, but stop almost as soon as 
they have begun. 


Some of the publishers offer a 
cassette (or cassettes) to go with 
their book. This is a good solution, if 
a somewhat expensive one, to the chore 
of typing in long programs from book 
listings. 
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& ð SCREEN FREEZER 
by David Graham 


Led å only 
Q.» 


Have you ever wished you could take a pause in the middle of your favourite 


(16k) 


CoN 


arcade game - either because you have been called away to the telephone in the 
middle of a high-scoring run, or simply so that you can examine the screen in 
Peace while you work out a Strategy for the next phase of the game. FREEZER 


allows you to do just that. 


FREEZER is a short machine code 
routine that is loaded before a game or 
other program to provide a pause 
control. It works perfectly well on 
most of the arcade games that we have 
used it with - see table - and it works 
equally well with Basic or machine code 
programs. 


Once FREEZER is activated, pressing 
the '@' key during the playing of most 
games will give a delay of 
approximately 30 secs. If your game 
uses any sound effects then these will 
also be 'frozen'. The program can be 
altered to give different delays. Once 
the delay time is up, the game resumes 
as normal, and the delay button may be 
pressed again to effect further delays. 


Pressing Break disables the routine, 
but it may be re-enabled by CALL &AØØ. 
A beep indicates that it has been 
Successfully called. 


DETAILED INSTRUCTIONS 

Type in the program, and save it on 
cassette or disc before running it. 
When you RUN it, you will be asked for 
an address. This may be hex or decimal, 
but hex values should be preceded by 
'&'. Generally Speaking you should 
enter &AØØ here, unless you wish to 
locate the code elsewhere (if you 
suspect that your arcade game uses this 
Space). You should then see the 
assembly listing scroll on the Screen, 
and a beep should be heard. The machine 
should now behave exactly as normal, 
until you press the 'e' key. It should 
then hang up completely for around 39g 
secs. 


Once the routine is working you 
should save a machine code copy. Type 
*SAVE FREEZER AQ A40. You can now l 
reload the code by *RUN FREEZER - again 
Successful 


a beep will indicate a 
execution. 


BEEBUG MAG 


December 1983 


Once the code is in your machine, 
and enabled, you can load and run any 
game you wish. Remember though, to 
execute CALL &AØØ after pressing Break 
at any time, 


THEORY | 

The program is based on the general 
interrupt handler given last month, and 
works by enabling a key press event, 
and instead of processing the interrupt 
normally, the routine goes through a 
long timing loop if the special key is 
pressed. This effectively locks up the 
machine completely until the specified 
time has elapsed. During this time the 
keyboard is itself disabled, so no 
further key-conditional routines may be 
incorporated. To change the time, you 
may alter the value 200 in line 380. It 
may be anything from ] to 255, 


A more flexible pause control can be 


effected using a switch on the user 


port. To do this, change the event 
number to 4 (from 2) in line 118, and 
replace the key detection and loop 
routine with the following: 
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37Ø LDA #8 198 OPT PASS 


380 STA &FE62 200 : 
390.LOOP LDA &FE6Ø 21Ø start 
400 CMP #255 228 CLD 
410 BNE LOOP 230 LDA $7:JSR &FFEE 
240 LDX #(ECODE) eevent code 
You will also need to delete lines 429 258 LDA #14 
and 43Ø which are no longer needed. 260 JSR &FFF4 senable event 
270 LDA #(entry MOD 256) 
Using this routine, if any of the 8 280 STA &22Ø ;lo byte 
user port lines are brought to earth, 290 LDA #(entry DIV 256) 
the machine will freeze until all are 300 STA &221 ;hi byte 
restored high. This allows a 310 RTS 
push-button freeze-on freeze-off 320 BRK 
control, giving greater flexibility. 330 : 
ces : "anu 7 340 .entry 
20 REM Version BØ.4 358 CLD 
30 REM Author David Graham 360 PHA:TXA:PHA:TYA:PHA:PHP 
4Ø REM Based on a routine 370 CMP $64:BNE out 
50 REM By Trevor Pullen 380 LDA #200: STA entry-1 
6Ø REM BEEBUG December 1983 39Ø .z LDY #255 
70 REM Program subject to Copyright 400 .y LDX #255 
8G : 410 .x DEX:BNE x 
99 MODE 7:0N ERROR GOTO 500 420 DEY:BNE y 
100 INPUT"ADDRESS (if hex, precede wi 430 DEC entry-l:BNE z 
th &) ",addr$ 440 .out PLP:PLA:TAY:PLA:TAX: PLA 
1198 PROCassemble (2) 450 RTS 
120 CALL start 200. d 
139 END 470 NEXT PASS 
149 : 480 ENDPROC 
150 DEF PROCassemble (ECODE) 490 : 
160 FOR PASS=Ø TO 3 STEP 3 598 ON ERROR OFF:MODE 7 
170 P%=EVAL (addr$) 510 REPORT:PRINT" at line ";ERL 
189 [ 520 END 


USEFUL KEY DEFINITION FOR WORDWISE - Paul Baron 

This is a very useful key definition to allow the programmer to search for a 
specific piece of text , using Wordwise, with just one key press. 
*KEY9 |! o| [5S 
This sends the cursor to the top of the file, out of edit mode to menu option 5 - 
search and replace, and selects 'selective' search. All you have to do is type in 
the string you wish to search for, and the string you want to replace it with. 
Alternatively, if you wish to find a certain piece of text, you can search for that 
text, and when prompted for a replace string just press Return. Then when Wordwise 
has found the text, if you press Escape twice it will leave the cursor at the 


UPPER/LOWER CASE CHARACTERS - N.Ahmon 

When the Caps Lock light is off normal typing gives lower case characters, and 
pressing Shift with a key gives upper case, but when the light is on, normal typing 
and Shift-typing gives upper case. However holding down Shift and pressing Caps 


Lock, will allow you to type in upper case, until Shift is pressed with a key, when 
lower case is typed. This effect is cancelled if Caps Lock or Shift Lock are 


pressed. This is useful for entering lower case variable names within a program. 
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by Philip Le Grand 


The small loud speaker fitted into the BBC micro does not really do justice to 
the range of sounds that the machine is capable of producing. This straightforward 
project shows you how to connect an external speaker to your Beeb at a very small 
cost (£1.20 approx. + cost of a speaker). You will find this vastly improves both 
the volume and quality of the notes produced by your Beeb and provides an excellent 
hardware project for those with limited experience in this area. 


This article describes one easy 
method of connecting an external 
speaker to the Beeb using a jack plug 
and socket. The wiring is very simple 
and can be easily removed if you ever 
need to take out the Beeb's main board. 
In addition, the internal speaker still 
operates when the external speaker is 
unplugged. This project requires some 
simple soldering, but not to either of 
the two boards in the Beeb. You will, 
however, need to make a small hole in- 
the case, to accommodate the jack 
Socket. 


The internal amplifier on the Beeb 
is capable of delivering 250mW of 
power, So there should be ample volume 
for an external speaker. You will also 
find that the 'quiet' buzz emitted from 
the internal speaker turns out louder 
with the external speaker, but you can 
always leave it unplugged when not in 
use. 


CONSTRUCTION 

All the components used are 
generally available from Maplin (and 
other stockists) and we have listed the 
complete set of parts needed. To fit 


the interface, proceed as follows: 6. Take a 23cm lengh of screened cable, 
strip off about 1.5cm of the outer 
l. Disconnect your micro from the plastic, and twist the screening to 
mains. This is very important. form a single lead. Likewise, remove. 
about Icm of the plastic from the inner 
2. Remove the 4 screws securing the top core and twist, so that the wire 
half of the case. | resembles diagram 1. 


3. Remove the 2 or 3 screws securing 
the keyboard. 


Diagram 1 Screen 
4, Carefully disconnect from the ud Hilo ied 
keyboard, the large ribbon cable 


joining the keyboard to the main board. — — i mer inner 
STRIPPED AND TWISTED heard core 
5. Remove the connector on PL15. This CORES OF CABLE d rai 


connector joins the internal speaker to 
the main board. 
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7. Place the screening lead onto a 
Minicon connector, and bend the 
protruding metal tabs over with a pair 
of fine nosed pliers so that the wire 
is clamped. Then carefully solder the 
two together with a low power soldering 
iron (15W), to form a strong connection 
as in diagram 2. Now solder the other 
terminal to the central core in the 
same way. 


Diagram 2 SIDE VIEW OF TERMINAL 


. Minicon 
N terminal 


tabs bent overs 


cable soldered Cor: 


together pip 


8. Now pick up your 2-way Minicon Latch 
Housing (it is the small box shaped 
unit), and notice that at one end there 
are two large holes and at the other, 
there are two small holes. The large 
holes will take the terminals you've 
soldered. On one side there are two 
rectangular holes - these accommodate 
the pips on the back of the terminals. 


9. If you place the housing (as it is) 
onto PL15 with the pins of PLI5 
entering the small holes, then you 
should notice that there is only one 
correct way round with the two 
rectangular holes facing you, because 
there is a capacitor in the way. Now 
remove the housing, and insert the 
terminal on the screening into the 
right most large hole, ensuring the pip 
on the terminal fits into the 
rectangular hole. Repeat with the 
second terminal in the left hand hole. 


19. Push the connector onto PL15 and 
carefully bend the screened cable over, 
so that it will not touch the keyboard 
when replaced. Wind the cable around 
the edge of the board, past IC17. Bend 
the cable up over the edge of the case 
by the power supply, and round into the 
well by the left side of the case. Now 
the cable is shaped, disconnect the 
plug before continuing. 


11. Now cut off the plug already on the 
end of the leads from the internal 
speaker and strip the insulation from 
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Diagram 3 


| red lead from 
147 internal speaker 


signal core 
of new lead 


REAR VIEW OF JACK SOCKET, SHOWING CONNECTION DETAILS 


the ends of the two wires. Strip the 
other end of the screened cable, in a 
mannner similar to (6) above. 


12. Solder the screened cable and the 
original speaker leads to your 3.5mm 
jack socket as shown in diagram 3. 


13. Carefully make a hole (ideally 
6.35mm in diameter) through the case 
into the well, so that the jack socket 
is a good fit about half way along its 
length. Remove any bits of plastic 
remaining around the hole, as there is 
very little room to fit the socket. 
Unscrew the retaining ring on the 
Socket and discard the washer 
underneath, since there is no extra 
room to fit this. Insert the socket 
into the hole and screw on the 
retaining nut - you may need to use 
pliers to tighten the nut. Don't over 
tighten, or you may break the thread on 
the socket. 


14. Reconnect the keyboard, pushing any 
excess wire from the internal speaker, 
into the well, screw it in place and 
fix down the top of the computer. 


15. Now you will need to make up a lead 
to connect a 3.5mm jack plug to the 
external speaker. Unscrew the cover on 
the 3.5mm jack plug, and solder the 
bared ends of the remaining length of 
screened cable to it, soldering the 
screen to the largest outer terminal, 
and the inner core to the inner 
terminal. Screw the cover back on to 
the plug. 


16. Use a speaker with a power rating 
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over cable to the Speaker, ensuring the 


8 ohms impedance, otherwise 

loading of the speaker will occur and > Screen is soldered to the terminal 
the sound will be distorted. An old car marked with a '-' sign, or coloured 
radio speaker is ideal for the purpose. black. 

Our speaker was rated at 8W, and had an 

impedance of 8 ohms. It reproduced both 17. Finally plug the speaker into the 
the low and high frequency notes with a socket, enter a program containing 
lot more feeling than the original SOUND commands, and sit back and 


Speaker. Solder the other end of the listen! 


SoM 


BIGGER BASIC PROGRAMS IN MODES Ø,1 & 2 - J.Pike 

You can 'steal' some of the display memory to increase the available RAM for 
Basic programs by preceding your program (as saved on tape) with: 

1 L$z1:M$-1:*TV] 

2 MODE M$:HIMEM-&30004L2*&280 

3 VDU 24,Ø;Ø;1279;1Ø23-L3*32: 

4 VDU 28,Ø,31,8Ø/2”M%-1,L% 

5 CHAIN"" 
In line 1, L$ sets the number of lines of screen display used, where each line 
releases 640 bytes to Basic and M$ sets the mode used. The garbage which will 
appear on the top line of the display when the main Basic program runs, is removed 
with *TVl. This only works on about the top 3 lines, before the display breaks up. 
If more than 3 lines are used (i.e. L%>3) then you must live with a mottled display 
at the top of the screen, but you can stop it "flashing" with *FX9,0. Line 2 sets 
the mode to 0,1 or 2, then resets HIMEM to the new top of Basic RAM. Lines 3 and 4 


28 are used in the main program,the size of the windows must not be increased above 
that set in lines 3 and 4. 


K ` CIEE E E E 000000 20000000 0000 00000 0040 00489 9070070"0070-0"0"0"0"0"0"0"0"0"0"a"a" eo a a alum ls ge 
AA OR KK KE SNE T DOOOC OCC Se a 0,0.00000000000%0 9.6.9. 9,9.00.0 090. $9.0. e 0 9. $.9,0,0,0,0, 0,0 0.0.0. Sa e ooga zozo ororo o ororo zo ozo ozaro zozo ozozozozozozezooze 


SUMMARY OF START-UP OPTIONS - A.K.Bhanja 


Break-Break Hard reset (OS Ø.] only) 

Break Ordinary Reset 

Ctrl-Break Hard reset (1.2 OS only) 

Shift-Break Auto Boot Disc Filing System (DFS and 1.2 OS) 
C-Break select the cassette filing system (1.2 OS) 
D-Break Select the disc filing system (1.2 OS) 
N-Break select Econet filing system (1.2 OS) 

R-Break select ROM filing system (1.2 OS) 


Any key-Shift-Break Auto Boot Cartridge ROM System (1.2 OS) 


10,5,0,0,0,0 0.0.0 0-0:9^07070707070707070 0707070707070 070 070 0 ee e ao e o ba Ra lue X 9,9 9,9 9 00 0 9 0 0 6 e a ,959,9,9, 9,9 9 0 e KJK DE DKK DK DR 0 0 0 0 0 00 
Palana e a o * a he eae CURT OR COR OR OLOR OE OR COLON GO OO a he DEED ae aon. aes eT Ttt EEEE ERRAR RRRA RAI 


NULL FILENAMES, - D.T.Goodwin 
The DFS allows the creation of files with apparently no file name (they appear as 

a blank line in a directory catalogue - they may be detected using *INFO *.*), 

delete these files some versions of the DFS allows the use of *DELETE "" but othe 


a PUO D D DD DDR OE osoo o oze a oo ozo zezo zozo zozo zozozozozo-o-ozo-o-o-e-0-0-0-e-0-0-0-0-0-0-0-0-a"0-0-0-o-0- 9*0"0"0" 00707070707670707070707079'07e7079"9" 9-070707670707970707070 9 079 0 0 0 0 9 0 0 0 6 6 RA a RR TQ Quee ss 
DOK be PEEK DLL ORO OR DOO a ote * 00 00000000 90%", 00000000 00% 000000 0 r va 0 a ae a o a a aaa oa 9,9, Ó "ae 00008200 0069000000000 0 0 6 o 9 o o oo o e os 00000 r U 


IWO USEFUL LOCATIONS IN O.S. 1.2 
In operating system 1.2, the number of the screen mode Currently being used is 


Stored in location &355, which allows a mode independent program, for example a 
light pen procedure, to check which mode is being used by reading this location 
directly. Location &366 contains the character to be used as the output cursor in 
teletext mode. Try ?&366-42, in mode 7, and use the cursor keys. This should give an 
asterisk as a cursor. 
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CUSSION MACHINE (16k) 
by Nick Day 


We present here a fairly short program for generating percussion rhythms. 
Although the sounds produced are unsophisticated, the program is good fun to 
use, and is easy to modify for the purpose of experiment. 


The Percussion Machine is an 


entertaining rhythm generator using a 
variety of percussion sounds. The top 
half of the screen displays a menu of 
all the sounds available, pius 
instructions. The lower part of the 
Screen shows a marker scanning along a 
row of dots. A cursor, which is 
represented by the '^' character, can 
be moved by the  cursor-left and 
cursor-right keys, and allows a drum 
noise to be entered at any point in the 
series. Any sound is entered by 
pressing a single key letter selected 
from the menu. Thus the program scans 
through the sounds presented on the 
screen making the appropriate sound for 
each one, but allows the list to be 
edited, by adding new sounds while the 
cursor is still scanning through those 
already set up. 


You can also increase or decrease 
the tempo, again by single key strokes. 
For each instrument you can select a 
loud or a quiet sound. 


The program can be used without any 
of the skills usually required for 
drumming, such as good timing and 
co-ordination, as the program does all 
the hard work for you. Experimenting 
with the various sounds available is 
very entertaining. The sounds include 5 
types of drum, cymbal and triangle 
allowing great flexibility in output. 


For the more adventurous the program 
is easily modified. It should be fairly 
simple to add more sounds, or to modify 
the existing ones. You may also feel 
that you could, by experimenting, 
improve upon the envelope definitions 
contained within the program. When 
adding more sounds remember to modify 
the command list in line 670 as well as 
the block of lines 3ØØ to 44Ø. You can 
also change the number of beats per 
cycle (currently 16) by changing the 
value in line 8Ø. The structure of this 
program should make it easy to modify 
and as such could then be used as a 
basis for a much more powerful music 
development system. 


19 REM Program DRUMS 
20 REM Author Nick Day 
30 REM Version Bl.3 
40 REM BEEBUG December 1983 
5Ø REM Program subject to copyright 
60: 
70 REM Initialise 
80 nsteps-16 : REM Cycle length 
90 REM this could be altered for 
100 REM other tempos. 
110 ON ERROR GOTO 1020 
120 DIM beats (nsteps) 
130 MODE7 
140 VDU 23;10,32,90;9;0; 
150 PROCinit 
160: 
170 REM Main Loop 
180 REPEAT REM Cycle thru rhythm 
190 FOR timestep=1 TO nsteps 
200 PRINTTAB (editstep,21)SPCl 
210 editstep- (editstep-t ( INKEY-26) - (IN 
KEY-122)) 
220 IF editstep<l THEN editstep-nstep 
S 
230 IF editstep>nsteps THEN editstep- 
1 
24Ø key=INKEY (Ø) 
250 IF key<>-1 THEN PROCsetchar (key) 
260 charS=beatS(timestep) 
270 PRINTTAB (editstep,21) udis 
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28Ø PRI 


" 19) Ð n 


299 PRINTTAB (timestep 


) "y" 
300 IF 


370 IF 


:SOUND 0, 


380 IF 


:SOUND Ø, 


390 IF 


:SOUND Ø, 


499 IF 


: SOUND Ø, 


410 IF 


SOUND 2; 


420 IF 


SOUND 2, 


430 IF 


char$="." 


char $="L" 
char$z"]" 
char$="M" 
charS="m" 
charS="H" 
char$="h" 
charS="D" 
1754 
charS="d" 
2,7, 1 
charS="U" 
1,7,1 
charS="u" 
2,7,1 
char$="C" 
1,197,1 
charS="c" 
2,197,1 
charS="T" 


440 IF char$="t" 


459 IF step<Ø THEN step=Ø : 
(30,29) CHR$ (129) "Fastest" 


460 IF step>4@ THEN step=4Ø 


GOTO 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


THEN 
THEN 


THEN 


THEN 


NTTAB ( (timestep-1)MOD nstepst+l 


MOD nsteps+1,19 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


SOUND 
SOUND 


AB(3Ø,2Ø) CHR$ (129) "Slowest" 
470 PROCwait 
480 NEXT timestep 
490 UNTIL FALSE 


500: 


510 DEF PROCwait 


0,2,4,1l 3 
3,1,245,1 
3,2,245,1 
PRINT TAB 


: PRINT T 


520 REM Waits for next timestep 
530 REPEAT 
540 UNTIL TIME>nexttime 
550 nexttime=TIME+step 
560 ENDPROC 


578: 


580 DEF PROCclearbeat 


590 REM Clears the array beats 
600 FOR I=1 TO nsteps 


610 beat$(I)="." 


620 NEXT 
630 ENDPROC 


640: 


65Ø DEF PROCsetchar (key) 
660 REM Takes action on input 
670 IF INSTR ("HhMmL1UuDdCcTtF£Ss ." ,CH 


B 


When using O.S. 1.2 and Basic I or Basic II, 


cursor 


BEEBUG 


RS (key) )=Ø THEN ENDPROC 


- Dpr.N.F.Kennedy 


MAG 


to the origin, but leaves it where it was before the CLG instruction. 0.5 
g.l moved the cursor back to 0,9. 
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| 680 IF key- 
step=stept+l : 


ORkey=ASC ("s") THEN 
PRINT TAB (30, 20) SPC8 s E 


690 IF key-ASC("F")ORkey-ASC ("£") THEN 
step=step-l : PRINT TAB(30,20)SPC8 : E 
NDPROC 
7ØØ beats (editstep) =CHRS (key) 
710 PRINTTAB (Ø, 20) CHRS (139) ; 
1 TO nsteps : PRINTbeatS (i); : 
720 ENDPROC 
730: 
74Ø DEF PROCinit 
750 REM Initialises 
760 *FX4,1 
770 ENVELOPE 1,1,0,0,0,0,0,0,126,-10, 
Ø,-1,126,1ØØ 
78Ø ENVELOPE 2,1,0,0,0,0,0,0,126,-20, 
Ø,-1,126,6Ø 
79Ø ENVELOPE 3,1,-2,0,0,255,0,0,0,0,0 
,0,8,9 
800 
Ø,Ø,Ø 
81Ø 
820 
830 
840 


s FOR i= 
NEXT 


ENVELOPE 4,1,2,0,0,255,0,0,0,0,0, 


PROCclearbeat 
step-10 
nexttime=TIME+step 
timestep-l 

859 editstep-l 

960 PRINT CHRS(148)CHR$ (157)CHR$ (131) 
CHRS (141) "Drum Machine" 

970 PRINT CHR$(148)CHR$ (157) CHRS (131) 
CHRS (141) "Drum Machine" 

880 PRINT'"Press H for High Drum" 


890 PRINT" M for Medium Drum" 
900 PRINT" L for Low Drum" 

910 PRINT" U for Up Drum" 

920 PRINT" D for Down Drum" 

930 PRINT" C for Cymbal" 

948 PRINT" T for Triangle" 

950 PRINT" . to Clear Beat" 

960 PRINT'" F to go Faster" 

970 PRINT" S to go Slower" 

980 PRINT'" CURSOR KEYS to Move" 
999 PRINT'"Use lower case for quieter 


sounds" 

1009 PROCsetchar (ASC(".")) 

1010 ENDPROC 

1020 ONERROR OFF 

1030 MODE7 

19040 IF ERR<>17 THEN REPORT:PRINT" at 
line ";ERL 

1050 *FX4 

1060 END 


CLG does not return the graphics 
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: UTILITY FOR PROGRA 
only 


pise by Steve Hutt 


BBC Basic allows quite well structured programs to be written using procedures. 
Another useful approach is known as modular programming which entails dividing a 
program into small specific functions or modules. The code for each module is then 
written and tested independently. All of the program modules are then brought 
together or linked to form the complete program. This utility will carry out the 
linking process, including renumbering, and is a very useful aid indeed for program 
writers. The LINK utility is designed for use with disc systems and will run on both 


single and dual drive units. It incorporates extensive error checking. 


A program module is like a short 
program that should be created, tested 
and saved on disc as for any other 
program. For the purposes of LINK all 
program modules should be saved on the 
same disc if possible and must be in 
directory 'I'. If necessary you can 
build up several discs of program 
modules provided they are all saved in 
directory 'I'. In this way you can 
build up a whole library of commonly 
used routines. When you want to write a 
program using the modular approach, you 
start by creating a root module (or 
program). At every point within the 
root program where a module is to be 
inserted, there should be a statement 
of the form: 


REMINCLUDE<space><module name» 


This statement should be entered 
directly following the Basic line 
number with no intervening spaces. 
There should be no space between the 
REM and the INCLUDE and there should be 
one, and only one space, between 
INCLUDE and the  'module-name', The 
'module-name' must be the file name of 
the program module as held on the disc. 
It should not include the directory 'I' 
as this is automatically assumed by the 


linking ` program. As typed, the 
'module-name"' should be 1 to 7 
characters long and immediately 


followed by depressing the Return key. 
It is important to follow this format 
exactly, although the LINK utility does 
contain extensive error checking should 
you make a mistake. 


The output program file that is 
produced by LINK will contain, in place 
of each REMINCLUDE statement, all of 
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the lines of code from the included 
module. If the module to be included 
cannot be found, a message is displayed 
on the screen, the REMINCLUDE statement 
is copied to the output program file 
and processing continues from the next 
Statement. Note that programs may still 
be run even if they contain REMINCLUDE 
Statements, as these statements are 
treated by Basic as comments. 


Included module code may itself 
contain REMINCLUDE statements. Three 
nesting levels below the root module 
are allowed. Because only five channels 
are simultaneously available on the BBC 
micro, only five files may be open at 
any one time, one for the input program 
file, one for the output program file 
and three for nested  'include' files, 
This does not impose any limit on the 
number of modules that may be included 
in a program, only on the depth of 
nesting. 


To use the LINK utility it should be 


loaded and run, and then the utility 
disc replaced by that holding the 
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and the modules themselves. The LINK 
utility will ask for the directory 
(which can be any character except 'I' 
or 'L') and the name of the Basic 
program to be linked. The default 
directory (normally $) is entered by 
pressing Return alone. 


Once a program name has been entered 
the disc will be searched for that 
program. If it is not found then a new 
directory and program name will be 
requested. Pressing Escape at any time 
will exit from the utility. If the 
specified program is found, a new Basic 
program with the same name will be 
created in directory 'L'. This will be 
a copy of the root program, but 
incorporating the added modules. 


During execution of LINK, the start 
and end of each included file is 
displayed on the screen. This is 
helpful because the nesting levels can 
be seen. At the start of the utility 
there is also an option for displaying 
the output code as files are linked. 
The code is displayed between the start 
and end lines thus showing the contents 
of each included module. Running the 
link utility without the display 
option,however, will greatly reduce the 
execution time. The line numbers 
displayed are those as held on the 
file. They will almost certainly be out 
of sequence but the program will be 
automatically renumbered later.It is 
not essential for each module to have 
unique line numbers, unless the files 
contain  'GOTO' type statements. It is 
best to number the lines in various 
modules above 20,000. Even with line 
numbers out of sequence, the 
renumber ing will normally be 
successful. 


One should never code GOTOs which 
jump outside of an included module. At 
some later stage the line number 
outside the module may be changed. In 
any case this utility should help you 
to write well structured code, thus 
avoiding GOTOs altogether. 


When the linking ends, as well as 
residing on disc, the output program is 
left in the machine. The LINK utility 
includes an option that will 
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automatically run the completed program 
once linking is complete. 


If you have an Acorn DFS there is a 
limit of 31 files per side of a disc. 
Allowing for input and output program 
files, this only leaves space for 29 
program modules. Should more be 
required they may be put on another 
disc. To use this, link the program 
using the first disc. Any  'includes' 
which are not resolved are copied to 
the output file. Insert the second disc 
and save the created program (which is 
still in the machine). Re-load the LINK 
utility and then re-insert the second 
disc of program modules. Re-running the 
link will now pick up any missing 
modules. This method obviously can be 
extended to as many discs as may be 
required and will also overcome the 
limitations on nesting described 
earlier. 


The LINK utility is very useful for 
setting up.modules of code common to 
many programs. This is particularly so 
when writing assembler code. Most 
programs set up variables like OSWORD, 
OSBYTE, OSWRCH, etc. to hold the 
addresses of 0.5. routines. These 
statements could be placed in a module 
called I.OSADDR. The start of each 
program would contain the code 
REMINCLUDE OSADDR. 


In Basic, modules could consist of 
individual procedure definitions that 
are Simply appended to the root program 
by the use of REMINCLUDE statements. 


There are many other uses to which 
the LINK utility can be put. With a 
little thought it could even enable one 
to implement something along the lines 
of simple macros. 


1Ø REM Program LINK 

20 REM Version Bl.9 

30 REM Author Stephen Hutt 

40 REM BEEBUG December 1983 

50 REM Program subject to Copyright 


100 ON ERROR GOTO 3200 
118 PROCsetup 

120 MODE7:VDU15 

130 PROCfrontpage 

148 PROCsetuplink 

158 PROClink 
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160 PROClastpage 
178 END 
180 : 

1000 DEF PROCsetup 

191Ø.DIM B$ (255) ,C% (5) , M2 (12) 

19020 M%(3)=11 

1030 M$(4)-&FA4:REM token for REM 
10480 M%(5)=ASC("I") 

1050 M% (6) =ASC ("N") :M% (7) =ASC ("C") 
10960 M% (8) =ASC ("L") :M% (9) =ASC("U") 
1978 M%(1@)=ASC ("D") :M% (11) =ASC ("E") 
1080 Q%=&2ØØØ5 
1898 ENDPROC 
1180 : 
111Ø DEF PROCfrontpage 
1128 PROCmsgxy (Ø, Ø, "RNDY" , STRINGS (9,CH 
RS32)+"*****_ LINK ****%') 

1130 PROCmsgxy (Ø, 1 , "RNDY" , STRINGS (9,CH 
RS 32) HVAKKKK LINK kN) 

1140 VDU28,0,24,39,2 
1150 PROCerror (STRINGS (36,CHR$32) ) 
1160 VDU28,Ø,22,39,2 
1178 : 

1180 REPEAT 
1198 CLS:PROCmsgxy (Ø, I, RNY","Program 
File Directory") 

1200 PROCmsgxy(2,2,"C"," (One character 
- not 'I' or 'L')") 

1218 PROCmsgxy(2,3,"C","Default Direct 
ory is $") 

1220 PROCmsgxy (2,4,"C","ESCAPE to quit 
") :flag$-FALSE 
1230 REPEAT ; 

1240 PROCmsgxy(2,5,"C","Enter director 
y:") sPROCmsgxy (19,5, "y" , 1) 

1250 PROCblank(20,5):INPUTTAB(20,5)dir$ 
1260 IF dirS="I" OR dirS="L" THEN PROC 
error("Directory 'I' or 'L' not allowed 
") ELSE IF LEN(dirS)>1 THEN PROCerror(" 
Too many characters") ELSE flag$-TRUE 

1270 IF LEN(dir$)=Ø THEN dir$-"$":PROC 
msgxy (20, 5M " "o 

1280 UNTIL flag$ 

1290 PROCerror (STRINGS (36, CHR232) ) 

13908 : 

1318 PROCMSgxy (Ø,7, "RNY", "Program Name 
"):PROCmsgxy(2,8,"C"," (Up to 7 characte 
rs) ") : PROCMSgxy (2,9, "C","ESCAPE to quit 
79 

) 

1320 PROCMmSgxy(2,1Ø,"C", "Enter Program 

Name") : PROCmsgxy (22,1Ø,"Y","") 

1330 flag$-FALSE 

1340 REPEAT 

1350 PROCblank(23,1Ø) : INPUTTAB (23,19) 
prog$ 

1360 IF LEN(prog$)>7 THEN PROCerror("P 
rogram name too long") ELSE IF LEN(prog 
$)«1 THEN PROCerror ("No program name") 
ELSE flag$-TRUE | 

1370 UNTIL flag% 
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1390 : 
14ØØ LprogS="L."+progS: P$=dir$+"."+pro 
g$:CCT3=OPENUP (PS) 

1418 IF CCT$-0 THEN PROCerror ("Program 

"+PS+" not found") . 

1420 UNTIL CCT$:CLOSE4CCT$ 

1430 PROCmsgxy (9,12,"RNY","Screen Disp 
lay") 

1449 PROCmsgxy(2,13,"C","Display Outpu 
t (Y/N) ?"):PROCmsgxy (25,13, "y" ,"") 
1450 REPEAT 

1460 PROCblank(26,13): INPUTTAB (26,13) 
displays 

1470 UNTIL displayS="Y"OR displayS="N" 
1480 PROCmsgxy (2,15,"G","Program "+Lpr 
ogS+" will be created") 

1499 : 

1500 PROCmsgxy(2,16,"G","Press RETURN" ) 
151@ CCT$-GET 

1520 ENDPROC 

1530 : 

1549 DEF PROCsetuplink 

1550 CCT$-1 

1560 C%(1)=OPENOUT (Lprog$) 

1570 BPUT#CS (1) , &ØD 

1580 BPUT4C$ (1) ,&ØØ:BPUTHCS (1) ,&01 
1590 BPUT#C% (1) , &0B :REM BYTE CT 

1600 BPUT4C$(1),&F4 . :REM 

1618 BPUT#C% (1) ,ASC ("L") 

1620 BPUT4C$ (1) ,ASC ("I") 

1630 BPUT#C% (1) , ASC("N") 

1640 BPUTHC% (1) ,ASC ("K") 

1658 BPUTHC% (1) ,ASC ("E") 

1660 BPUT#C% (1) ,ASC ("D") 

1670 BPUT#CS (1) ,&ØD 

1680 ENDPROC 

1699 : 

1700 DEF PROClink 

1716 CLS:VDU] 4 

1720 PROCerror ("Use SHIFT to continue") 
1730 PROCmsg("G","START OF FILE "+PS) 

1740 Z%=FNread (PS) 

1750 PROCmsg("G"," END OF FILE "+PS) 
1760 VDU15: PRINT:X$-POS:Y$-VPOS 

1770 BPUT$HC% (1) ,&FF:CLOSESCS$ (1) 

1780 PROCerror (STRINGS (36, CHR$32) ) 
1790 ENDPROC 

18090 : 

18198 DEF PROClastpage 

1820 PROCmsgxy (X%+2,Y%, "C", "Run Progra 
m "+LprogS+" (Y/N) 2") : PROCmSgxy (X%+32, 
Y% " nyn ; " "j 

183Ø REPEAT 

184Ø PROCblank (X3+33,Y%) : INPUTTAB (X243 
3,Y$) RNS 
1850 UNTIL RNS="Y" OR RNS="N" 
1860 VDU28,0,24,39,2:CLS 
1870 PROCmsg ("LGD","LINK Completed") 
1880 PROCmsg("GD","LINK Completed") 
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1899 VDU26: PRINTTAB (Ø,5) 
19ØØ PROCfinish 
191Ø ENDPROC 
192Ø : 
193Ø DEF PROCfinish 
1949 HIMEM-HIMEM-1 Ø: SHIMEM=Lprog$:VDU2 1 
195@ *K.@ LOAD SHIMEM | MRENUMBER | MSAVE 
SHIMEM | MVDU6 | M | 
196Ø K. IRUN|M 

1970 *FX21,9 

1988 *FX138,0,128 

1990 IF RNS="Y" THEN *FX138,0,129 

2000 ENDPROC 

2010 : 

2020 DEF FNread(filenameS$) 

2030 LOCALI$,L£,X$2,Y$ 

2040 L$-LEN(filenameS$):IF $<3 OR L2»59 
THEN PROCmsg ("FY","INVALID FILE NAME " 
+f£ilenameS) :=FALSE 

2050 IF CCT$>=5 THEN PROCmsg ( "FY" , "UNA 
BLE TO OPEN FILE "+filename$) : PROCmsg (" 
FY", "MORE THAN 3 LEVELS OF NESTING"):zF 
ALSE 

2060 I $=OPENUP (filenames) 

2070 IFI%=0 THEN PROCmsg ( "FY" , filename 
S+" NOT FOUND") : ZFALSE 

2080 IF EXTHIS>Ø THEN X$=BGETHIS 

2090 IF X%<>&ØD THEN CLOSE#I $ : PROCmsg ( 
"FY", filename$+" INVALID - NOT BASIC"): 
PROCmsg ("FY",filenames+" IGNORED") : =FAL 
SE 

21ØØ B$(1)-BGET4I$ 

211Ø IFBS(1)=&FF OR EXT#I%<=2 THEN CLO 
SE#I%: PROCmsg ("FY",filenameS4" IS EMPTY 
") :=FALSE 

2120 : 

2139 CCT$-CCT$*1:C$ (CCTS) =1%:B% (9) =I 

2140 REPEAT 

2159 Bs (2) =BGET#BS (Ø) :B% (3) -BGET4B? (Ø) 

2160 X$-3 

2170 REPEAT 

2180 x$- $t 1 :B$ (X2) =BGET#B3 (Ø) 

2190 UNTIL X$-B$ (3) 

2200 IF FNisitinclude-TRUE THEN PROCin 
clude(B$(3)) ELSE PROCcopy (B$ (3) ) 
2219 B% (1) =BGET#B3 (Ø) 
222Ø UNTIL BS (1) =&FF :CLOSE#B3 (Ø) 
2230 CCT$-CCT$-1:B$ (Ø) =C% (CCTS) 
2240 =TRUE 
2250 : 
2260 DEF FNisitinclude 
2270 LOCAL X$,Y$ 
2280 IFB% (3) <=M% (3) THEN =FALSE 
229Ø Y%=TRUE 
2300 FOR X$-4TOM$ (3) 
2310 IF BS (X$) <>M3 (X2) THEN Y%=FALSE _ 
2320 NEXT 
2330 zY$ 
2340 : 
2350 DEF PROCcopy (L3) 
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2360 LOCAL I$ 

2370 FORIS=1TOLS 

2380 BPUT#C% (1) , B2 (13) 

2390 NEXT 

2400 IF displayS-"Y" THEN PROCdisplay( 
L3) 

2410 ENDPROC 

2420 : 

2430 DEF PROCdisplay (L2) 

2440 LOCAL I$,QUOTE2 

2450 PRINTTAB (Ø) BS (1) *&1094B2 (2) ; 

2460 QUOTEZ-FALSE 

2470 FORIS=4TOL% 

2480 IF BS (I$) -ASC("'""") THEN QUOTE£Z- 
OT QUOTES 

2490 IF B$(I$)-&0D THEN PRINT CHRS (&@D 
) ELSE IF BS (13) <&2Ø THEN PRINT" ,"; 

25ØØ IF QUOTES=TRUE OR (B$(I$)»-&20 AN 
D B$(I$)€X-&7F) THEN PRINT CHRS (B$ (I2)); 

2510 IF QUOTEZ-FALSE AND B$(I$)^&7F AN 
D B&(1%)<>&8D THEN PRINT FNkeyword (BS (I 
$)); 

2520 IF QUOTEZ-FALSE AND B$(I$)-&8D TH 
EN PRINT FNlineno(B$ (13+1) ,B2 (15+2) , BS ( 
15+3))::1%=1%+4 

253Ø NEXT . 

2540 ENDPROC 

2550 : 

2560 DEF PROCinclude (L$) 

2570 LOCAL I$,INCS:INCSz"" 

2580 IF Bs (12)<>32 OR L2«14 THEN PROCm 
Sg("FY","INCLUDE NAME MISSING") : PROCcop 
y (L$) : ENDPROC 

2590 FORI$=1 3TOL3-1 

2600 IFBS(1%)>&7F THEN INCS-INCS4FNkey 
WOrd(B$(I$)) ELSE IF B3 (1%) <>32 THEN IN 
CS-INCS4CHRS (B$ (12) ) 

2610 NEXT 

2620 IF LEN (INCS)=Ø THEN PROCmsg ( "FY", 
"INCLUDE NAME MISSING") : PROCcopy (L$) : EN 
DPROC 

2630 PROCmsg ("C","INCLUDE "+INCS) 

2640 IF NOT FNread ("I."+INCS) THEN PRO 
Ccopy (L$) 

2650 PROCmsg ("C"," 

2660 ENDPROC 

2670 : 

2680 DEF PROCmsg (cc$ ,msg$) 

2690 LOCAL i$,c$ 

2700 FORi%=1 TO LEN (cc$) 

2710 CcS=MIDS (ccS,i%,1) 

2720 IF c$="C" THEN PRINTCHRS (134); 

2730 IF c$z"y" THEN PRINTCHRS (131); 
2740 IF c$="G" THEN PRINTCHRS (130); 

2750 IF cS="R" THEN PRINTCHRS (129) ; 
2760 IF c$z"p" THEN PRINTCHRS (136) ; 
2779 IF cS="D" THEN PRINTCHRS (141); 
2780 IF c$="N" THEN PRINTCHRS (157) ; 
2790 IF c$="p" THEN PRINTCHRS (13) ;CHRS 


END "+INCS) 
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2800 NEXT: PRINT msg$ 

2810 ENDPROC 

2820 : 

2830 DEF PROCmsgxy(x,y,ccS,msgS) 

2840 PRINTTAB (x , y) ; : PROCmsg (cc$ ,msg$) 
2850 ENDPROC 

2860 : 

2870 DEF FNkeyword (K%) 

2880 LOCAL I$,T$,KEYS 

2890 T%=&8Ø6D 

2900 REPEAT 

2910 I$-T$ 

2920 REPEAT 

2930 T$-T$-4] 

2940 UNTIL ?T%>&7F 

2950 IF ?T%=K% THEN REPEAT: KEYS=KEYS+C 
HRS (21%) : I3=I%+1: UNTIL I%=T% 

2960 T%=T%+2 

2970 UNTIL T%>=&8358 OR LEN (KEYS) >Ø 
2980 -KEYS 

2990 : 

3000 DEF FNlineno (NO1$2,NO2$,NO3£) 
3010 LOCAL L%,L2%,L3% 

3020 L2$-(NOl1S$AND&39)*4:L2$9-L2$EOR NO2$ 


This month we bring you another short and fascinating graphics program by 
D.D.Harriman. This one is an excellent example of the animated graphics that can be 


achieved simply by switching colours. 


This program presents the black and 
white squares of a chequer board in 
such a way that the squares appear both 
to get larger and move towards you as 
you watch. The program is essentially 
based on the use of the VDUI9 command 
(Ssee User Guide page 382). This is of 
the form: 

VDU19,L,A,0,0,0 | 
where L is the logical colour number 
(the range depends on the mode 
selected) and A is the actual colour 
(from Ø to 15). The program uses mode 2 
which allows 16 logical colours. The 
chequer board is drawn initially using 
14 of these colours which are then 
repeatedly changed between black and 
white to give the effects that you 
observe. The other two colours out of 
the 16 are used to provide white text 
and graphics against a black background 
in the top part of the screen. 


PROGRAM DESCRIPTION 
itial assignments the 
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3040 L%=L2%+L3%*256 

3Ø5Ø =STRS (L3) +CHR$32 

3060 : 

3070 DEF PROCerror (msg$) 

3080 VDU28,0,24,39,2 

3098 PROCmsgxy (0,21 ,"RN" ,"") 
3100 PROCmsgxy (2,21,"Y" ,msg$) 
3110 PRINT STRINGS (37-LEN (msg$) , CHR$32 
); 

3120 VDU28,0,22,39,2 

3130 ENDPROC 

3140 : 

3150 DEF PROCblank (x,y) 

3160 PROCmsgxy (x,y,"",STRINGS (40-x ,CHR 
$32)) 

3170 VDU28,0,22,39,2 

3180 ENDPROC 

3190 : 

3200 ON ERROR OFF :CLOSE#@ 

3210 VDU28,0,24,39,2:CLS 

3220 PROCmsg("LGD","LINK Terminated") 
3230 PROCmsg("GD","LINK Terminated") 
3240 VDU26: PRINTTAB (Ø, 7) ; : REPORT: PRINT 
" at line ";ERL 
3250 END 


(32k) 


program starts by drawing bands of 


colour, decreasing in width, from the 
bottom of the screen up to 
approximately the halfway point (lines 
158 to 198). The next routine (lines 
210 to 279) uses exclusive OR plotting 
to draw perspective bands (each made of 
two triangles) across the horizontal 
lines. Each such band is four times as 
wide at the front as it is at the rear. 
Having done this the moving chequer 
board effect is produced by repeatedly 
executing the procedure PROCspeed which 
uses VDU19 to switch the colour 
assignments. We have embellished the 
area above the chequer board with some 
additional text and graphics (lines 290 
to 380). You could easily define this 
area as a text and/or graphics window 
where other images could be produced. 


SOME USEFUL VARIABLES 

J%  - determines the width and hence 
number of squares across the 
screen 
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XS sets the x co-ordinate for the 


centre of the circle. 
Y$  - controls the height of the 


chequer board on the screen. 
Y$-Y - marks the actual height of the 
chequer board on the screen. 
AS  - the text displayed on the screen 
at the end. 


29 


If you change the FOR Statements at 
lines 410 and 440 to count in the 
reverse direction (up instead of down), 
you will find the chequer board moves 
away from you instead of towards you. 


19 REM Program CHEQUER 
20 REM Version BØ.4 
30 REM Author Delos D.Harriman 
40 REM BEEBUG December 1983 
20 REM Program subject to Copyright 
60 : 
100 MODE2:0N ERROR GOTO 549 
118 J%=64:AS="BEEBUG " 
120 VDU23;11,Ø:Ø:Ø:Ø 
130 COLOUR7 :COLOUR1 43: VDU19,15, 
148 X$2640:Y$-2640:R-640:Y-Y2:C$2- 
150 FOR F=1 TO 6 STEP 9.03 
160 C$-C$41:C$-C$- (C$27):IFC$-215:C2-20 
1780 GCOL0,1284C$:L-Y:Y-Y2/F 
188 VDU24,0;Y$-L;1279;Y$-Y;:CLG 
190 NEXT: VDU26:GCOL3,8 Å 
200 : 
210 FOR F$--640 TO 639 STEP J% 
220 MOVE64Ø+F%, Y3-Y:X13=64Ø+F3*4 
230 MOVE X1%,Ø:F%=F%+J%:X22=64Ø+F% 
240 Y2$-Y$-Y:PLOT85,X22,Y22 
250 PLOT85,64Ø+F%*4,0Ø 
260 MOVE X1$,0:DRAW X2%,Y23 
270 NEXT: GCOLØ , 7 . 
280 : 
290 FOR C=] TO 4 STEP 3 
300 FOR I=Ø TO PI STEP PI/C/32 


70212 
-1 


3198 Xl]= STR*COS (I) /C: Yl -Y$4R*SIN(I)/C 


320 MOVEX$,Y$-Y:DRAW Xl,Yl-Y 

330 NEXTI,C:PRINT TAB (0,9); 

340 : 

350 FORI$-1 TO 3:FOR F2-] TO LEN (AS) 
360 PRINT MIDS (AS,F$,1) ; : PROCspeed 
370 NEXTF£,I£ 

3860 REPEAT: PROCspeed: UNTIL FALSE 
390 3: 

400 DEF PROCspeed 

41Ø FOR A%=6 TO Ø STEP -] 

429 VDU19,A%,77Ø; :VDU19,A248,0; 0; 
430 PROCW: NEXT 

440 FOR A%=14 TO 8 STEP-] 

456 VDU19,A$,7;0;:VDU19,A2-8,0;0; 
460 PROCW:NEXT 

470 ENDPROC 

480 : 

490 DEFPROCW 

500 T$-TIME: REPEAT UNTIL TIME-T£»]1 
510 ENDPROC 

520 : 

530 ON ERROR OFF:MODE 7 

540 IF ERR<>17 THEN REPORT: PRINT" at 


line "sERL 


550 END 
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reviewed by Sheridan Williams 


We review here three of the disc units that have recently become available. All 


are extremely compact, especially the new 3 inch drives from AMS, and at competitive 
prices. If you are thinking of purchasing a disc drive then this review may help you 


to make up your mind. 


Model : AMS 3" Microdrives 
Supplier: Advanced Memory Systems Ltd, 
Woodside Technology Centre, 
Green Lane, Appleton, 
Warrington, WA4 5NG. 
Tel: 0925 62997. 
Case size: single- (D) 155x(W) 95x (H) 5@mm 
twin — (D) 175x (W) 19Øx (H) 5Ømm 
£255 (Single), £399 (Double) 
(inc. VAT & delivery) 


Price: 


The drives used are Hitachi 3Ø5S 
microdrives. They use the power supply 
from the Beeb even for the twin drives. 
They are single sided drives with a 
capacity of 100k, however both sides of 
the disc can be used, effectively 
doubling their capacity to 200k. 


As you can see from the dimensions 
above, these drives are exceedingly 
compact. I fell in love with them for 
this single reason. Besides the 
measurements the drives are pleasing 
aesthetically, discs are inserted 
horizontally, and the drives are side 
by side, rather than on top of one 
another. A very annoying feature is 
that the drive on the left is 
numbered ] and the one on the right 
numbered Ø. I am so used to reading 
from left to right that I immediately 
opened the case and reset the DIP 
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to change the numbering to the more 
sensible arrangement of left drive 9, 
right drive 1. 


A very comprehensive, and well. 
written reference manual is provided 
with the drives. It is printed using a 
matrix printer, and then photocopied, 
but nevertheless was very clear. 


An interesting point with 3" discs 
is that the edge of the disc is still 
visible when inserted in the drive. 
There is enough room on the edge to 
write a title, which means that discs 
don't have to be removed to see what 
they are. 


Another useful extra was an EPROM 
that contained two extra commands to 
enhance the BBC DFS - *FORMAT and 
*VERIFY. These are also supplied on the 
demonstration disc, but if you have a 
spare EPROM socket they are far more 
conveniently accessed from the 
operating system than having to find 
the demo disc each time they are 
required. 


I found the drives very reliable. 
They have been in constant use now for 
over a month without any problems. In 
operation the head stepper motor was 
quiet, but the rotational motor was 


more noisy than I would expect. 


On the topic of compatability, I 
should point out that the manual makes 
it quite clear that one AMS drive can 
easily be connected together with an 
ordinary 5.25" drive, both capable of 
being used without unplugging. However 
for those with only 3" drives I have 
not seen any manufacturers selling 
software on 3" discs yet. Also there is 
no Standard for micro floppy drives, 


and there are also 3.5" drives 
available to complicate matters 
further. 
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For those thinking about dual 
density controllers (we hope to be 
reviewing a couple next month) this 
would double the capacity from 199k to 
200k per side, and the drives are quite 
capable of handling this. 


I have two criticisms - one major 
and one minor. The minor one is that of 
very short data and mains leads. The 
leads were only 56mm long, which is 
barely long enough to place the drives 
in a convenient position. However, my 
major criticism with our twin drives 
was that of safety. Where the mains 
lead entered the drive casing there was 
no grommet or reinforcement of any 
kind. The mains lead had become twisted 
Several times and was chafing 
dangerously on the unprotected metal. 
This is a major design fault and made 
the drives potentially very dangerous. 
I hope that AMS will pay particular 
attention to this in their future drive 
units. 


TIRHULILULE HE PULURLUBUS OLLI 


Model: Cumana 5,25" 

Supplier:  Cumana, Unit 1, The Pines 
Trading Estate, Broad Street 
Guildford, Surrey, GU3 3BH. 
Tel (0483) 593121. 

Case size: Single- (D) 295x (W) 155x (H) 52mm 
twin- (D) 4Ø1x (W) 204x (H) 124mm 

Type: Double-sided 80 track 


Price: Single- £395.69, 
Double- £734.85 (inc VAT & 
delivery) 
[Cumana normally Supply ` through 
dealers. These are recommended retail 
prices and include | manual and 


connecting cables.] 
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These Cumana units use Mitsubishi 
drives. We have had both a Single and a 
twin Cumana disc unit on test for a 
while, although not as long as the AMS 
drives. The Cumanas have been reliable 
causing us no problems, They are very 
Slim, but are quite deep, as the 
measurements show. This is because of 
their built-in power supply. The disc 
ejection mechanism is a nice feature, 
as not all 5.25" drives have this. Also 
the discs are inserted horizontally. 
Just as with the AMS drives, the drives 
are numbered strangely with the bottom 
drive as Ø and the top drive as ]. 


A good feature is the length of the 
power lead and data cable, the latter 
being 1.25m long. This allows you to 
Site the drives almost anywhere on your 
table top. 


The drives had a Slightly noisy 
Stepper motor. The rotational motor 
however, was very quiet. 


A manual can be purchased with the 
Cumana disc drives. It deserves much 
praise. It is well written, clear and 
informative. 


LLL ETTE TETTE ETTE 


Model: TEAC TCS 55ES 

Supplier:  Technomatic Ltd, 17 Burnley 
Road, London, NW1@ JED. 
Tel: @1-452 1599 
and (1-450 6597 

Case size: 275(D) x 150(W) x 52(H)mm 


Type: Single-sided, 40/80 track 
switchable. 
Price: £215 (+VAT) 
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drives are very neat and 
attractive, and it is a shame that they 
don't quite fit on top of the Beeb, but 
overhang the back a bit; this is a 
minor point, however. 


These 


They are quiet in operation and 


come complete with a built-in 
4Ø/8Ø track switch included in the 
price. The discs are inserted 


horizontally, (which I prefer), and 
once inserted are locked in place with 
a small lever. The discs are not 
ejected when this lever is released, 
but are easy to remove anyway. 


The drive uses the Beeb's power 
supply and can be sited quite 
conveniently thanks to 9ØØmm long power 
and data cables. 
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CONCLUSION 

I marginally prefer the TEAC disc 
drive because it is such good value for 
money, however all three makes can be 
recommended for a variety of reasons. 


CHOICE OF DRIVE 

One of the most common questions 
that we get is which disc system to 
choose. With all the different systems 
available the choice comes down to a 
choice of DFS, standard or double 
density controller, 40 or 8Ø track, 
single or double sided drives, single 
or dual drives. 


(cheapest) system will 
4@\track, single 
capacity of 


The minimum 
be Standard density, 
sided, single drive, with a 
100k. 


The maximum (most expenSive) system 
will be Double density, SØNtrack, 
double sided, dual drive, with a total 
capacity of 16ØØK. 


There are dozens of combinations in 
between. For those upgrading to a disc 
system because they: are bored with 
cassettes, the cheapest solution will 
probably suffice; though the Teac 40/80 
switchable is also a very tempting 
option. Not until you graduate into 
handling large files, or you have 
hundreds of programs will you find the 
need for anything larger. Pound for 
pound, the cheapest way to obtain more 
capacity is to spend your money on a 
dual density controller (for example 
from Microware or LVL) rather than on 
larger capacity disc drives themselves. 
Also note that you can mix drives such 
as a single sided, 40 track drive with 
a double sided 80 track drive, or even. 
a 5.25" drive with a 3" drive. This 
means that your initial choice won't go 
to waste if you need to expand later, 
making yet another reason to go for the 
double density controller. We hope to 
review double density controllers in 
our next issue. 


*FX3,1Ø  - C.W.Robertson 

When using  *FX3,10 to send text to 
is not necessary to have a special code 
any character can now be sent directly. 


z LJ € 6 00 00 9 ee 
KES KKK KKK KE ES KKK KK KR KKK KK E KK 


AUTO VERSION NUMBERING - J.P. Carnell 


“When devloping a program it makes 
new filename. 


the printer only, VDUl becomes redundant. It 
to send characters to the printer only as 


SC SC a a a a a a aða a CC e o0 090990090 e o 6 
ORO OR DOE EE ER KKK 9552575357553 A o oo aa So a o ooo MIGRERTE KE A 


sense to save each new version of it under a 


First, let Z%=Ø, then program fØ: *KEY0,2$-2$ s+] |MSAVE"PROG"+STRS (Z2) |M 


When you wish to save the new version press fø. This will save it as PROGI, 


PROG2 


etc, with each subsequent depresssion of fØ. The resident integer variables must be 
used for this purpose as they are retained during program editing. 
not to use the variable Z$ anywhere in the program. 


Take care also 
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by D. Jackson 


Why not treat yourself to our excellent poker e 
dice game, called "Killer Dice"? This is a gambling game 
which involves more thought and skill than you might at — 
first think. Like all true gamblers you will soon 
find yourself having just one more game, and 
one which you are bound to win this time! 


For those of you who won't own up to having 
played with poker dice before, we start with some 
basic information. There are five identical dice, 
each with six faces representing the 9, 10, Jack, 
Queen, King and Ace. When the dice are thrown, it is 
the uppermost faces which count, and it is these 
which are displayed on the screen. You are playing "4 
against the computer, taking it in turns to better the | 
score of each other until one of you loses. At the start of the 
game, both players have 9 lives and the the contest finishes when 
one of the players has no more lives left. 


Except when you are throwing first 


at the start of a new game, you have be CE Rocha le 
; 2 g r Ý M 2. 4 of a kind 7. Two pairs 
the option of retaining any of the dice ; 
2 3. Full House 8. One pair 
on the table and just throwing the : 
À MN ; 4. High run 9. Ace high 
remainder. This is the course of action B. Tow Huh 


to follow if some of the dice on the 
table are particularly high scoring. In 


this computer version, you can ‘'‘hold' Ð å ` player | throws 5 of a kind, his 
any of the dice 1 to 5 by pressing any partner is given 5 throws to equal or 
of the function keys fl to £5 before better the hand. A full house is when a 
pressing the space bar for your next player gets 3 of a kind and a pair 


go. If you make a mistake, pressing fØ together. 


clears any of the dice currently ina 
hold state and you can start again. = i ger e Ferner ar 
playing Killer Dice, you will find 
yourself working out various strategies 
to defeat the computer. You will have 
to try hard to succeed and you will 
also need a certain amount of luck as 
well. 


PROGRAM NOTES | 
The program is well structured and 
therefore relatively easy to follow, 
but you will need to take great care 
with the mass of data statements at the 
end. These are cunningly used to define 
the characters that represent each of 
the dice on the screen. The card number 
(9 to 13) indexes to a DATA statement 
which gives the colour followed by the 
15 character definitions that are then 
poked in turn directly into the 


Different combinations of dice have character buffer. Each character is 
different scoring values. Here are the dynamically defined as ASCII 224 and 
winning combinations in order (highest placed in a text window 3 wide and 5 


value first): deep to produce the dice face. Look at 
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the procedure PROCroll at line 238Ø to 
see the detail of this. This is clever 


programming though unfortunately 
won't work across the Tube. 


1 REM PROGRAM KILLER DICE 
20 REM VERSION B0.5 

30 REM AUTHOR D.JACKSON 

40 REM BEEBUG DECEMBER 1983 
60 : 

70 Prog$="KILLER DICE" 

80 ON ERROR GOTO3116 


1900 MODE7:PROCintro 

1010 REPEAT:MODE2:PROCinitz 
1020 REPEAT:VDU17,3,31,0,26 
1038 IF T$ PROCyou:ELSE PROCbbc 
1040 PROCthrow:PROCscore 

1050 IF B% T$--T$-1:ELSE PROClose 
1060 UNTIL D%: PROCdead 

1070 UNTIL E%:MODE7: PROCend 
1080 END 

19090 : 

1100 DEFPROCintro 

1118 *FX225,128 

1128 DIMD(5) ,N(6) ,P(6) ,L(1) 
1130 ZzRND(-TIME)s:T$- (2)-2 
1148 VDU31,11,8,141:PRINT Prog$ 
1158 VDU31,11,9,141:PRINT Prog$ 
1160 VDU31,5,17 


1178 PRINT"PRESS SPACE BAR TO CONTINUE" 


1188 VDU31,17,18 

1190 REPEAT: PROCinkey: UNTIL I$-32 
1200 ENDPROC 

1210 : 

1220 DEFPROCinitz 

1236 VDU23,1,0;0;0;9; 

1240 L(Ø)=9:L(1)=9 

1250 B$z0:F$-0:V$-1:E$-0:D$-0 
1260 VDU17,3,31,1,1 

1270 PRINT"LIVES-BBC:9 YOU:9" 
1288 VDU17,5,31,1,4 

1290 FORIS=1T05: PRINT; 1%; 
1300 ENDPROC 

13109 : 

1320 DEFPROCyou 

1330 PRINT"YOU TO GO"; 
1348 Z%=B%OR (-F$»0AND-—F$«5) 

1358 IF Z% VDU17,1:PRINT'"-INPUT HO 
1360 VDU17,3,31,90,29 
1378 PRINT"-SPACE BAR TO THROW-" 
1380 REPEAT: PROCinkey: 13=13-128 

1390 IF Z%:IF I$»50 AND I$«6:PROChold 
1400 IF 1%=Ø:PROCcancel 

1410 UNTIL I$--96 

1420 ENDPROC 

1430 : 

1440 DEFPROCbbc 

1450 PRINT"MY TURN" : PROCdelay (3) 
1460 IF B%=@ AND F$-0:ENDPROC 

1470 X$-0:Y$-0 


SPC (3) ; : NEXT 


1489 


1499 
1500 
1518 
1529 
1538 
1546 
155d 
1560 
1579 
1580 
1590 
1600 
16160 
1620 
1630 
1640 
1659 
Croll 
1660 
1679 
1680 
1699 
1700 
1719 
1720 
1739 
174Ø 
175Ø 
1769 
177Ø 
17890 
2%=5 
179Ø 
18ØØ 
181Ø 
182Ø 
183Ø 
184Ø 
185Ø 
186Ø 
187Ø 
188Ø 
189Ø 
1900 
1918 
1920 
1938 
19468 
1959 
1960 
1978 
1989 


FORIS=6TOVS% en 
IF N(I%)>X%:X%=N(1%) : Y3=13 
NEXT 


IF X$-1 AND F$-0:ENDPROC 
FORIS=1T05 

IF D(I$)-Y$ PROChold 
NEXT 

ENDPROC 


o 
9 


DEFPROCthrow 
FORIS=1T06:P(1%)=N (13%) ANDB%3 NEXT 
PROCdelay (2) 

FORI%=1T05 

IF D(I$)«8 PROCdice:VDU12 

NEXT 
VDU28,0,31,19,15- (B$*2) ,12,26 
FORI%=1T05:Z%=D(1%) 

IF Z%<8 PROCdice:PROCdelay (1) : PRO 


NEXT: VDU26 : PROCcancel 
ENDPROC 


DEF PROCscore : PROCde lay (2) 

VDU28,0,17,19,15,12,26 
$70:Y$-0:22$-0 

FORI%3=1T06 

IF P(13)=Ø:X%=X3%+1 

IF N(I$) -:Y$-YS$-l 

IF N(13%) >Z%Z23=N (13) 

NEXT: X3=X3%ANDB3 

IF X%=1:IF P(1)=Ø OR P(6)=Ø:X%= 

IF Y$-1:IF N(1)=Ø OR N(6) =Ø:Y%= 


IF F$-0 AND Y$-5:F$--6:V$-D (5) 
IF F% PROCfive: ENDPROC 
PROCprompt : PROCdelay (1) 

IF Y$»5X$:B$-TRUE: ENDPROC 

IF X$»5Y$:B$-FALSE: ENDPROC 
B$-1:X$-16 

REPEAT: Y3=6 

REPEAT 

Z%=(P(Y%) OR N(Y%)) AND X% 

IF Z3>@ AND N(Y%) >P(Y%) B$-TRUE 
IF Z%>@ AND N(Y%)<P (Y3) BS=FALSE 
Y$=Y3-1:UNTIL Y$-0 OR B%<] 
X$-X$DIV2:UNTIL X%=Ø OR B%<1 

IF B$-1:B$-FALSE 

ENDPROC 


DEF PROC1 ose 

IF F$ ENDPROC 
PROCdelay (3) :VDU17,1,31,2,17 

IF T$ PRINT"YOU": :SOUNDØ,-1Ø,1Ø,1 


Ø ELSE PRINT" I";:50UND1,-10,101,8:SOUN 
D1,-1Ø,81 po 


1990 PRINT" LOSE A LIFE" 
2000 L(-T$)-L(-T$)-1 
2010 VDU17,3,31, (-T$*6) *11,1,48*L (-T$) 


2020 


IF L (-T&) =Ø: D&- TRUE 


2030 ENDPROC 
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2040 : 

2050 DEFPROCdead 

2060 VDU31,4,22,17,9 

2070 IF T$ PRINT"YOU ARE";ELSE PRINT" 
I AM": 

2080 PRINT" DEAD" 

2090 VDU17,3,31,0,28 

2100 PRINT"SPACE BAR TO REPLAY"' 

2118 PRINT"OR RETURN TO FINISH" 

21260 REPEAT: PROC inkey : UNTILI%=320RI%=13 
2130 IF 1%=13:E%=TRUE 

2140 ENDPROC 

2150 : 

2160 DEFPROCend 

2170 VDU12,17,3,31,5,12: PRINT"XBYEEEE" ; 
2180 *FX225 

2190 ENDPROC 

2200 : 

2210 DEFPROChold 

2220 IF F%=-5 ENDPROC 

2230 D(I$)zD(I2)48 

2240 VDU17,1,31, (I$*4) -3,12,72 

2250 ENDPROC 

2260 : 

2270 DEFPROCcancel 

2280 FORI%=1T05 

2290 D(I$)-D(I$)AND7 

2300 VDU31, (I$*4) -2,12,127 
2310 NEXT 

2320 ENDPROC 

2330 : 

2340 DEFPROCdice 

2350 Y$-(I2$-1) *4:VDU28,Y$, 
2360 ENDPROC 

2370 : 

2380 DEFPROCroll 

2390 SOUND1,-15,2900,1 
2400 N(Z$)-N(Z2$ )DIV2: Z%=RND (6) : D $)-72$ 
2410 IF N(Z%)=Ø N(Z$)-1:ELSE N(Z%)=N(Z 
$) *2 

2420 RESTORE (Z2%*5Ø)+275Ø:READC% 

2430 VDU17,C$,17,135 

2440 FORJ%=1TO15:READX%, Y33 1&CØ4=X%: 16 
CØØ=Y%: VDU224: NEXT 

2450 VDU17,128 

2460 ENDPROC 

2470 : 

2480 DEFPROCfive 


11,Y3+2,6 


V% 


2490 B$-0:Z$--F$«6 AND Y%=5 AND D(5)>= 
2500 IF Z% V%=1:F3=Ø:T%=-T%-1: ENDPROC 
2519 FS=F%+1:IF F$-0:V$-1:ENDPROC 

2520 IF F$--5:T$--T$-] 


2530 VDU17,2,31,0,15 

2540 PRINT"Five of Kind To Beat"' 
2550 PRINT"Or Equal In ";-F$; 
2560 IF -F$-1:VDU127 

2570 ENDPROC 

2580 : 

2590 DEFPROCdelay (X2) 


;" Throws"; 


BEEBUG MAG 


December 1983 


2600 TIME=Ø:REPEAT:UNTIL TIME=X%*5Ø 


261Ø ENDPROC 

2620 : 

2630 DEFPROCinkey 

2640 *FX15,1 

2650 I%=INKEY (9) 

266Ø ENDPROC 

2670 : | 

2680 DEFPROCprompt 

2690 VDU17,2,31,4,15 
. 27/00 IF Z$-] AND Y$-1 PRINT" Ace High" 

2710 IF Y$-2 PRINT"One Pair" 

2720 IF Z3=2 AND Y$-3 PRINT"Two Pairs" 

2730 IF Z$-4 AND Y$-3 PRINT "3 of a Ki 
nd" 

274Ø IF 


Z AND N(6)=@ PRINT"Low Run" 
2750 IF Z 

y^ 

Z 


$=5 

$=5 AND N(1)=Ø PRINT"High Run" 
=4 AND Y$-4 PRINT"Full House" 
=8 AND Y$-4 PRINT"4 of a Kin 


2760 IF 
2770 IF 
a" 

2788 ENDPROC 

2790 3 

2800 DATA0,&1907C7C7C,&38100000,0,0,&10 
7C7C7C ,&381 00000 

2818 DATA&7C7C3810,&00000038,0,0,&7C'7C 
3810,&00000038 

2820 DATA&19380000, 80038107C, &ØØ381Ø7C 
r&7C7C381Ø,&1Ø38ØØØØ , &ØØ381Ø7C 

283Ø DATA&38ØØØØ1 Ø,8387C7C7C, 0, 0, &3800 
0019,&387C7C7C 

2840 DATA&090001038,&7C7C7C10,0,0,& 0000 
1Ø38,&7C7C7C1Ø 

2850 DATA1,&10387C38,&101900000,0,0,&10 
387C38,&10100000 

2860 DATA&7C3810190,&10,&101038,8&7C3810 
19,&7C381019,&10 

2870 DATA&381Ø1ØØØ, &191038, Ø,Ø,&381Ø1Ø 
Ø9,8&1Ø1Ø38 

2880 DATA&1ØØØØØPY, 41013870, &1Ø1Ø387C 
,&838101000,&10000000,&1010387C 

2890 DATA&1010,8387C3810,0,0,81010,838 
7C381Ø 

2900 DATA4,&20202021,&21720000 , &C2C2FE 
FF,&55540000,&1E0A0800,&800000 

2910 DATA&19010101,&1010060,&C0C48082,& 
8288D8C0,&8080808, &80A1E3E 

2920 DATA&FUF0000,&190191 , &FFFFFEGA , &64 
E6C2C0,&FCFCO0C08 , 48080808 

2930 DATA&1010303,&6060C0C,&93831111,& 
38386C6C,&8080,&C8C87C7C 

2940 DATA0,0,&3838,&7C7CC6D6, 0,0 

2950 DATA2,&20505051,&51220000,&8282FE 
FF,&55540000,&3E1C0800 , 800000 

2960 DATA&3030303,8&3030111,&1111111,&4 
56D0101,&9CAAAAB88,&9CBE3636 

2970 DATA&FOF0000,&7070707 ,&FFFFEE44,& 
83839329, &FCFCØCØ8 , COC8C8DC 

2980 DATA&1010303,&6060C0C,&93831111 ,& 
38386C6C , $8080 , COC87C7C 

2990 DATAØ,Ø,&3838,&7C7CC6D6, 0, 0 
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3000 DATA1,&515Ø6Ø61,&5152ØØØØ,&182FEF 3060 DATA0,0,&7E7ET7E3C,&3C181800,0,0 


F,&55540000,&98080900,&800000 3070 DATA&3070707,&3030101,& FFFFFFFF,& 
3010 DATA&3030303,&1010151,&29111111,& DBDBBDBD, &CØEØEØEØ, kCOCQ8080 
456D0101,&88888888,&8080808 3080 DATA0,&190103,&7E3C1818,&189999DB, 
3020 DATA&FUF0000,&3030303,&FFFFFE7C,& 0,&98080COQ 

C7833901,&FCFCOCO8, &BE888888 ` 3090 DATA0,0,0,0,0,0 
3030 DATA&19019303,&6060C0C,&93831111,& 3190 : 

38386C6C,&8080 , &C8C87C7C 3119 ON ERROR OFF 
3040 DATA0,0,&3838,& 7C 7CC6D6,0 , 0 3120 MODE7:IF ERR<>17 REPORT:PRINT" at 
3050 DATA0,0,0,0,0,0,0 line ";ERL 


3130 END 


COLOURING VIEW - S.Fagg 
VIEW normally uses white text on a black background. However, if you want green 
text, you can't use the VDU 19 command when in VIEW. 
If you enter the following line: 
*KEY Ø "|S|A|B|Q|G|G |" 
pressing fØ changes the colour of the text. The text mode of VIEW disables the 
function keys, but stores ee so that they may ð restored on Td ui 


mu xum 


COUNT ERRORS - J.G.Lusmore 


When using the OSWRCH command in Assembler to produce some output, going back to 
using PRINT TAB statements in Basic will give incorrect results. This can be 
remedied by updating the zero page location of COUNT, which is &1E, using the 
following Assembler code: 

CLC:LDA &1E:ADC #1:STA &1E 


DETECTING THE SHIFT AND CONTROL KEYS - M.Hiseman & N.Lee 
*FX202 can be used to control the Shift-Lock and Caps-Lock keys with bits 4 and 5 


of the value passed in the X register. However, when used as an OSBYTE call with 
A-202, the following is true of the value returned in the X register: 

Bit 6 set if CTRL-«any key? is pressed 

Bit 5 set if Shift-Lock off 

Bit 4 set if Caps-Lock off 

Bit 3 set if Shift-<any key» is pressed 
Bits 3 and 6 cannot detect Shift or Ctrl on their own, only when they are pressed in 
conjunction with another key. | 


a mom avse aus sm 


O.S. 1.2 KEYBOARD SCAN - T.Green | 

Some programs written for 0.8. 0.1 operating system fail to work on O.S. 1.2, 
because they look for keyboard input at location &D7 (215). On 0.8. 1.2, the 
‘current key pressed' locations are &EC and &ED. The scan values have remained the 
same. 


Ep CNEMD em CINES ge sn ENS Gus Wu DD) munn EMI 


Å Jj 
Uu mum KG ZZ) BV CI EU CON UM ME EE EY GMs Gao MID I Dnm 2 Um un 


SPEEDING UP A/D CONVERSION - vb. E. Susa 

You can speed up the conversion of a channel by setting up the converter chip to 
8 bit resolution. This is done by using *FX190,8 before any ADVAL calls are used. 
The time for a conversion is now 4ms instead of lms. The output reading has the 
same nominal 16 bit range as for the normal 12 bit operation but the least 
significant 8 bits are now random, so use either ADVAL(C) AND SFFÜO or 
ADVAL(C) DIV 256 depending on the output range required (The value of C is the A/D 
channel number). 

Normal 12 bit operation is restored with *FX19Ø,ø. Direct entry to the ADC 
control register using either *FX151,192 or ?&FECØ does not work, as ADVAL resets 
the ADC using the *FX190 value before initiating a conversion 
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Dear Sir, 

The main reason for writing is to 
ask about Teletext adaptors etc. I 
must say that the idea of getting free 
programs from the T.V. sounds 
interesting but what do I need? If I 
have a Ceefax set, does it mean I can 
sit in front of the set and take down 
the listings by hand, switching 
backwards and forwards to make sure 
they are correct, ending up cross-eyed 
and cross, or is there an adaptor I can 
buy to couple to the existing Teletext 
Set, that will cost considerably less 
than the Acorn teletext adaptor? 

Anyway many 
excellent magazine. I find it most 
useful. I am still very new at all this 
but nevertheless each passing day shows 
a little more light at the end of the 
tunnel. But sometimes I think that each 
week the tunnel gets a bit longer. 

. Peter MacDonald 


Reply: Mr MacDonald is quite right. 
With a CEEFAX set, you can copy 
listings from the screen, but with 
great difficulty, not least because "of 
the special teletext format. At present 
you will need to buy the Acorn Teletext 
adaptor to download programs and data 
directly into your micro. As the 
amount of software available in this 
way is likely to be small the cost of 
the adaptor is probably not justified 
for the general user. The facility is 
likely to be used by the BBC in 
conjunction with various educational 
programmes in the future, and thus this 
link ‘might be useful to schools and 
colleges. 


GRAPHICS IN WORDWISE 
== 
I have tried unsuccessfully to put 
. my monogram [attractively printed at 
the head of the original letter - Ed] 
into WORDWISE format. Please could you 
supply some hints, methods etc. so that 
I do not have to keep saving and 
loading intermediate data tapes? My 
printer is an Epson MX8Ø FT3. 
A.J. Robinson 


thanks for your 


Reply: Using the embedded command OC 
enables any ASCII codes to be sent to 
the printer. For example, including 
0C27,75,5,0,255,255,255,255,255 as an 
embedded command will produce a block 8 
dots high and 5 dots wide. The one 
problem that might arise is that a 
graphics character with ASCII code 13 
is treated by WORDWISE as CR and, if 
you have set *FX6,0, will automatically 
cause a LF character to be sent to the 
printer as well, upsetting the graphics 
printing. WORDWISE normally uses the 
OSASCI routine for output. Changing the 
vector at OSASCI to point instead to 


the OSWRCH routine might solve this 
problem. 


Thanks for your useful reply 
concerning the "Illusions" program in 
BEEBUG Vol.2 No.5. It now works 
perfectly with the excellent effects 
that I had hoped for. The fault had 
been mine =- "typing mistakes". 
Congratulations to the author of the 
program, M.Inglis - perhaps in the 
future I may be able to understand 
every line of his program; at the 
moment I'm baffled! Meanwhile my 4th, 
5th and 6th form physics pupils will be 
equally fascinated by it. 

One small point - I couldn't get the 
little man to apear until I replaced 
(in line 279) the 189, 189 group by a 
255, 255 group. 

J.G.Conway 


Reply: We're pleased that this program 
was well’ received. It just shows how 
easy it is to make a mistake when 
typing a program into a micro from a 
printed listing - and we have had 
similar queries from other members. 
There is no error in the original line 
2/0 - can we suggest that another 
"typing mistake" was unknowingly 


corrected by the new version of this 
line? 
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This program provides an impressive d 


3|B4 


es Ba ` ` GALACTIC INVASION (32K) by L. P. Baxter 


emonstration of how good arcade games can be 


when written in Basic on the BBC micro. The movement of the graphics appears quite 
smooth, the sound effects are excellent and the presentation is very professional. 


The principle of this game is for 
you to shoot down the Galactic Invaders 
which appear as a massed force on the 
Screen. As you might expect, they put 
up a good fight, swooping down one by 
one to attack you with purposeful but 
unpredictable trajectories. You move 
left and right across the bottom of the 
Screen using the 'Z' and 'X' keys and 
fire back using the '.' key. When only 
one invader remains a new and even 
faster attack strategy is engaged. 


The different invaders rate 
different scores if you destroy them, 
as is shown in the table at the start 
of the game. The highest scoring 
invaders vary randomly in value. If you 
successfully defend yourself against 
the first attack, you then face a 
second and further screens of invaders. 
You have three lives before your 
defences are exhausted. At any time 
during the display of the scoring or 
high score table, pressing the space 
bar will start the next game. 

Like many good games programs this 
one is quite long and you must type it 
in carefully to avoid mistakes. Pay 
particular attention to the spaces in 
the program, though if you do get them 
wrong, it is only the initial displays 
which are likely to be affected. The 
mass of data statements at the end of 
the listing establishes the  invaders' 
swoop patterns, so are not as critical 
as they might be, but errors will be 
thrown up if you do not have enough 
data. Please note that this program 
will not work if it is renumbered 
because of the use of variable RESTORE 
Statements. 


We did think of replacing our 
Galactic Invaders with characters of a 
more seasonal theme such as Cristmas 
puddings, crackers, Christmas trees 
etc. In the end we resisted the 
temptation, but if you feel like doing 
this then the four  invader characters 
are defined in lines 888 to 910 and 
other characters like bullets and bombs 
in the lines following. 
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1Ø REM Program GALACTIC INVASION 
20 REM Verson BØ.9 
30 REM Author L.P.Baxter 
4Ø REM BEEBUG December 1983 
50 REM Program subject to Copyright 
60 : 
1800 ON ERROR GOTO 20170 
118 PROCchars 
120 DIM AS(4) ,BS (4) ,X$ (19) , Y$(10) ,NS ( 
5) ,S$ (5) 
130 FOR G%=1 TO 5:8S$(G$)26000-G$*1000 
:N$ (G3) ="BEEBUG" : NEXT 
140 REM---- COLD START ==== 
158 MODE5:FORA$-1 TO 4:BS(A%) =CHRS (22 
4+A%) s NEXT 
160 VDUI19,0,6,0,0,0:VDU19,3,4,0,0,0 
170 VDU19,2,5,0,0,0: PROCsheet1 
188 VOL%=-1Ø:VOL1%=-1Ø:ADD%=Ø:MISS=Ø 
190 MISS=CHRS23@:FLAGS=CHRS231 :FLAGI@ 
S=CHRS$238 : NBASES=CHRS235+CHRS$236 
200 BASES-CHRS324CHR$2324CHR$2334CHRS$ 
2344CHR$32:BASE-0:NBASE$- 
210 SHEETS=1 : SHEETS=FLAGS : DIF3=3Ø 
220 NMIS%=3:FREQ%=8:SHOTS=CHR$229 
230 REM==== WARM START ==== 
240 SCORES=Ø:MIS%=Ø:SHOT%=Ø:HSHOTS= 
250 VDU 23;11,0;0;0;0 
260 CLS:COLOUR3: PRINT" SCORE" : ZAP%=Ø 
270 NI$-28:REM FLAG FOR LAST MAN (NO. 
INV LEFT) 
280 FORAZ-1 TO 4:AS(A%)=STRINGS (6,CHR 
S (224*A$) +CHR$ 32) +CHRS (224+A%) : NEXT 
290 dive%=Ø:XDIVE%=Ø: YDIVES=Ø: TYPES=" 
":VP-ZÜ:HP-ZS:ALIENS-2 
300 PROCinv:IF A$-0 THEN 300 
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SES) ; TAB (19-LEN (SHEETS) ) ; SHEETS; 
320 DIRz0:PROCmove:new$z0:end2-0 
330 3 
340 REPEAT 
350 IF INKEY(-1904)--1 AND SHOT£-0 THE 
N PROCfire 
360 IF INKEY(-98)--1 THEN DIR--13:PROC 
movesELSE IF INKEY(-67)--1 THEN DIR=1:P 
ROCmove 
378 PROCshots:PROCmis:PROCshot 
380 COLOUR2:PRINT TAB(6,0); SCORE%+ADD% 
390 IF SCORE2-7000 THEN PROCnewsheet: 
new%=-1:GOTO 470 
400 IF ZAP%<>Ø PROCzapped 
410 IF NBASE$--1 PROCgamend:end--1:G 
OTO 4760 
420 REM NOW INVADERS TURN 
430 IF dive$-0 AND RND(2Ø)=1 THEN PRO 
Cinv:GOTO 4560 
440 IF dive$-0 THEN 450 ELSE PROCdive 
sGOTO 460 
450 IF RND(DIF%)=1 OR NI$-1 THEN PROC 
startdive 
460 PROCshot 
470 UNTIL new% OR end% 
480 IF new% THEN 240 ELSE 150 
490 END 
50g s 
510 DEF PROCmove 
520 IF BASES+DIR<@ OR BASES+DIR>15 TH 
EN ENDPROC 
530 BASE%=BASE%+DIR 
540 COLOUR2: PRINT TAB(BASE%,3@) ;BASES; 
550 ENDPROC 
560 : 
570 DEF PROCfire 
580 COLOUR3: SHOT%=BASE%+2:HSHOT%=29 
590 PRINTTAB(SHOT%,HSHOT%) ; SHOTS 
600 ENDPROC 
619 : 
620 DEF PROCshot 
630 IF SHOT$-0 THEN ENDPROC 
640 IF HSHOT$-4 THEN PRINT TAB(SHOTZ, 
HSHOT%) ; SPC1 : SHOT$=Ø: HSHOT%=Ø: ENDPROC 
650 HSHOT%=HSHOT%3-1:IF ?(SHOT$*16+HSH 
OTS* 320+2+HIMEM) <>Ø THEN 670 
660 COLOUR2:PRINTTAB (SHOT£ , HSHOT241) ; 
SPC1 ;CHR$ I I s;CHRS8 ; SHOTS: ENDPROC 
670 PRINTTAB(SHOT%,HSHOT%+1) ; SPC1;CHR 
S11;CHRS8;"*" sCHRS8 ¢ 
680 IF XDIVES-POS AND YDIVE%=VPOS THE 
N 690 ELSE 730 
690 dive%=Ø:AS (VP) =LEFTS (AS (VP) ,HP*2- 
2) +CHRS32+MIDS (AS (VP) ,HP*2) 
700 SCORES-SCORE24500-100*VP:VDU 32: 1 
F VP<>1 THEN ADD$=ADD%+5ØØ-1ØØ*VP:GOTO 
769 
718 S%=RND(1Ø) *1 ØØ:ADD%=ADD%+S%: PRINT 
CHRS8 ;CHRS$8;52$4400; 


319 PRINTTAB (9,31) ; STRINGS (NBASE$ , NBA 
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720 PROCnoise2:VDU8,8,8,8,32,32,32,232 
: GOTO7708 

730 SCORE%=SCORE3+5ØØ-FNY (VPOS) * 1 ØØ 

740 A%=FNY (VPOS) :B%=FNX (POS) *2-1:AS-(A 
$) =LEFTS (AS (A2) ,B£-1) +0CHRS32+MIDS (AS (A$ 
) ,B$*1) 

750 VDU 32:1F dive%=1 THEN PROCdive 

760 PROCnoise 

778 SHOT£-0:HSHOT$-0: 

780 IF NI%=1 THEN DIF 

790 ENDPROC 

800 : 

810 DEF PROCinv 

820 COLOURI 

830 AZ-RND(3)-2:1F A$-0 THEN ENDPROC 

848 IF ALIEN%+A%<1 OR ALIEN%+A%>4 THEN 
ALIENS=ALIEN%-A% ELSE ALIENS=ALIEN%S+A% 

850 PRINT TAB(ALIEN%,4):SPC1;AS(1);SP 
C1 ' "TAB(ALIEN%) ;SPC1 ;AS (2) ; SPC1 ' "TAB (AL 
LIENS) : SPC1:AS (3) ; SPC1 ' "TAB (ALIENS) ; SPC1 
: AS (4) ; SPC1 : ENDPROC 

86Ø : 

870 DEF PROCchars 

880 VDU 23,225,66,231,255,1Ø2,36,36,3 
6,24 

890 VDU 23,226,56,124,84,214,254,130, 
254,178 

900 VDU 23,227,102,153,36,90,90,90,66 
,129 

918 VDU 23,228,60,126,165,189,153,90, 
24,36 

920 VDU 23,229,0,24,24,24,24,24,24,0 

930 VDU 23,230,0,8,8,8,8,8,8,0 

940 VDU 23,231,48,56,60,56,48,32,32,32 

950 VDU 23,232,0,0,0,1,3,7,15,31 

960 VDU 23,233,24,60,60,255,255,255,2 
55,255 

978 VDU 23,234,0,0,0,128,192,224,240, 
248 


980 VDU 23,235,0,0,0,1,3,15,31,63 
998 VDU 23,236,0,0,0,0,128,224,240,248 
19000 VDU 23,237,0,0,0,255,0,255,0,0,0 
1910 VDU 23,238,176,184,188,184,176,16 
0,160,160 
1020 ENDPROC 
1939 : 


1940 DEF PROCdive 

19050 IF NI$-1 THEN SOUND 1,VOL%,3Ø,1:S 
OUND 1,VOL$,10,1:GOTO 10979 

1960 SOUND &ØØ11,VOL%, SOUZ, 5: SOU$-SOUS$ -1 

1978 IF XDIVES<Ø OR XDIVES>19 THEN 1090 
1080 PRINT TAB(XDIVES$,YDIVES$) ; SEC]; : IF 
MISS<NMISS AND RND(FREQ%)=1 AND YDIVE$ 
«28 THEN MIS$-MIS$-1:X$ (MIS%) -XDIVEZ:Y$ 
(MIS%) =YDIVE% 

1990 IF YDIVES>29 THEN 1120 

11ØØ READ A%,B%:XDIVE%=XDIVE3+A%: YDIVE 
$=YDIVES+BS: IF XDIVES>=Ø AND XDIVE%<2@ 
THEN PRINT TAB(XDIVE%, YDIVE%) ; TYPES; 


1118 ENDPROC 
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1120 IF NI$-1 THEN 1130 ELSE IF RND(5) | | 


=] THEN PROCinv ELSE PRINT TAB (FNXI (HP) 
,FNY1 (VP) ) ; TYPES 

1130 MIS%=Ø:dive%=Ø 

1140 IF XDIVES>BASE% AND XDIVE%<BASES+ 
4 THEN ZAP$-]1 


1159 ENDPROC 

1160 : 

1179 DEF PROCstartdive 

1180 RESTORE (RND(3)-1) *2Ø+11ØØØ 

1198 VP-RND(4):IF INSTR (AŞ (VP) ,BS (VP) ) 
=Ø THEN 1196 

1200 IF RND(2)=1 THEN 1220 ELSE A%=15 

1210 A%=A%-2: IF MIDS (AS (VP) ,A%,1) =CHRS 
32THEN 121Ø ELSE HP=(A%+1)/2:GOTO 1249 

1220 HP-(INSTR (AS (VP) , BS (VP) ) +1) /2 

1230 RESTORE (RND(3)-1)*20-19000 

1240 TYPES-BS(VP). 

1250 IF NI$-1 THEN RESTORE (1ØØ6Ø+ (RND 
(2)-1) *1ØØØ) : PRINT TAB (ENX1 (HP) ,FNYI (VP 
)) : SPC1; : HP=3 

1260 XDIVES=FNXI (HP) : YDIVES=FNY1 (VP) 

1278 SOU$-200:dive$-1:ENDPROC 

1280 : 

1290 DEF FNX(X)=(X-ALIEN%+1)/2 

1300 DEF FNY(Y)=(Y-2)/2 Å 

131Ø DEF FNXI(X)=X*2+ALIEN%-1 

1320 DEF FNY1(Y)=2+Y*2 

1330 : 

1340 DEF PROCmis 

1350 IFMIS%=@ THEN ENDPROC 

1360 FORAS=1TOMIS%: IF X%(A%)=Ø AND Y$( 
A3)=Ø THEN NEXT:ENDPROC 

13780 PRINTTAB (X$ (A2) , Y$ (AZ) ) ; SEC1; : Y$( 
AS) =Y% (AS) +1:IF Y$(A$)«30 THEN 1380. ELS 
E C%=X%(A%) :X% (AS) =Ø: Y% (AS) =O: IF C%<BAS 

%$+1 OR C%>BASE%+3 THEN 139Ø ELSE ZAP%= 
1:GOTO 1399 

138@ COLOUR] : PRINTTAB (X$ (A2) , Y$ (AS) ) ;M 
ISS; 

1390 NEXT: PROCsShot : ENDPROC 

1400 : 

141@ DEF PROCzapped 

1420 NBASE%=NBASE%S-1 

1430 COLOUR2:PRINT TAB (BASE, 3@) ;BASES; 

1440 PROCexplo:IF NBASE$--1 ENDPROC 

1450 CLS:COLOUR3: PRINT"SCORE" 

1460 COLOUR2:PRINT TAB(Ø,31) ;STRINGS (N 
BASE% , NBASES) ;SPC2; TAB (19-LEN (SHEETS) ) ; 
SHEETS ; TAB (Ø, 30) ;BASES 

1478 ZAP%=Ø:dive%=Ø:XDIVE%=Ø: YDIVES=Ø: 


MISS=Ø:HP=Ø:VP=Ø:BASE%=Ø:HSHOTS=Ø: SHOTS = 


1905 REPEAT: PROCinv:UNTIL A%<>Ø: ENDPROC 


1500 DEF PROCgamend 

1518 FOR A=1 TO 7000: NEXT 

1520 SCORES=SCORES+ADD%: IF SCORE%<=S% ( 
5) THEN 1699 | 

1530 REM MADE IT INTO HIGH SCORE TABLE 
1548 FOR A%=5 TO ] e -1 

1550 IF S$(A$ 
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1560 NEXT:VDU22,7 

1570 FORF$-1 TO 2: PRINTTAB(Ø,F%) :CHRS1 
41;CHRS1 3Ø; "Galactic Invasion": NEXT 
158Ø PRINT'CHRS134"Your score of"CHRSI 
31; SCORES$;CHRS134"is enough to rank" 

1590 PRINT TAB(Ø,5)CHRS133;C%:MIDS ("st 
ndrdthth",C$*2-1,2) :CHRS134"in the high 

score table." 

1609 PRINT TAB(Ø,8) ;CHRS134"Please ent 
er your name in not more than"CHR$136;C 
HRS134"ten letters." 

1610 PRINT TAB(13,15) ;CHR$134">":SPC( 
1Ø);"<";SPC(13) 

1620 PRINT TAB(15,15) ;:*FX 15,1 
1630 INPUT ""AS 

1640 IF LEN(AS)>1Ø THEN 1619 

1658 IF C$-5 THEN 1680 

1660 FOR A%=4 TO C$ STEP -1 

1670 S%(A%+1) =S% (AZ) sNS (AZ+1 ) =NS (AZ) :N 


1680 S%(C%) =SCORES:NS (C3) =AS 

1690 ENDPROC 

1709 : 

1718 DEF PROCnewsheet 

1720 ADDS=ADD%+SCORE%:SHEET%=SHEET%+1 
1730 SHEETS=STRINGS (SHEETS MOD 1Ø,FLAG 
S) +STRINGS (SHEETS DIV 1Ø,FLAG1ØS) 

1740 NMIS%=3+INT (SHEETS/2) :IF NMIS%>8 
THEN NMIS%=8 

1750 DIF$-DIF£-5:IF DIF%<5 THEN DIF$- 
1760 FREQ%=11-NMIS% 

1770 FOR A=1 TO 25ØØ: NEXT: ENDPROC 

1780 : 

1790 REM DISPLAY SHEETS 

1800 DEF PROCsheet1 

1810 REPEAT:VDU 23;11,0;0;0;0:*FX 15,1 
1820 KE$-20:PROChitable:IF KE$-0 THEN E 
NDPROC 

1830 CLS:C$-20:*FX15,1 

1849 ASz" GALACTIC INVASION":PROCintro 
(1) 

1850 AS=" "+STRINGS (17,CHRS237) : PROCin 
tro(2) 


1860 AS="4ØØ “+BS(1)+" ?":PROCintro 
(8) 

1870 AS="3ØØ "+BS(2)+" 6ØØ":PROCintr 
o(12) 

1880 AS="2ØØ "+BS(3)+" 4ØØ"s:PROCintr 
o(16) 

1898 AS="1ØØ  "+BS(4)+" 2ØØ":PROCintr 
o (20) 


1900 AS="Z KEY LEFT":PROCintro (26) 
191Ø AS="X KEY  RIGHT":PROCintro (28) 
1920 AS="., KEY FIRE":PROCintro(3Ø) 
1930 IF INKEYS(1ØØØ) <>""THEN ENDPROC 
1940 UNTIL FALSE 

1950 : 

1960 DEF PROCintro(A%) 

1978 IF A%=1 OR A$-2 GOTO199Ø 
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1998 FOR B%=15 TO 1 STEP -1:A-SIN(97.6 


) :BS-MIDS(AS,B$):PRINT TAB(0,A2);B$;:NE 
XT: ENDPROC 

2000 : 

20190 DEF PROChitable 

2020 CLS:A$- 

2030 A%=A%-1 

2040 PRINT TAB(0,0);A9$;", ":S%(A%) ; TAB 
(10,9) ;NS (A2) ;CHRS30; 

2050 B$- 

2060 B%=B%+1 

E VDU 11:IF INKEY(1Ø)<>-1 THEN A$-0 

=53 ENDPROC 

pue IF B$«4 THEN 2060 

2090 IF A%>1 THEN 2030 

2100 VDU 11,11,11:PRINT TAB(3,2) STRING 
$(14,CHRS$237) :CHR$1 1; TAB(3,1) "HIGHEST S 
CORES" 

2110 IF INKEY(1ØØØ)<>-1 THEN ENDPROC 

2120 KE%=1 3 ENDPROC 

2130 : 

2140 REM EXPLOSION 

2150 DEF PROCexplo 

2160 FOR A%=1 TO 50 

2170 GCOL RND(4)-1,RND(3) 

2180 SOUND 1,Ø,RND(5Ø)+1Ø5,1:SOUND Ø,V 
OL$,7,1 

2198 MOVE (BASE%+3)*64-32,32 

2200 DRAW RND(144)-96-(BASE$43)*64, RN 
D(144) 432 
. 2210 NEXT 
x 2220 FOR A=] TO 5ØØØ: NEXT: ENDPROC 
“9999 REM DATA FOR DIVES 
10000 DATA -1,1,-1,1,-1,1,0,1,0,1,1,1,1 
NNN 
1;Ø,1,1,1,Ø,1,1,1,Ø,1,1,9,1,Ø,1,-1,1,-1 
40,71,1,-71,0,-1,1,-1,1,-1,1,-1,1,-1,0,—- 
1,1,-1,1,-1,1,-1,1,-1,1 
109020 DATA -1,1,-1,1,-1,1,0,1,0,1,1,1,1 
2171, 13;1,1,1,1,1,0,1,0,1,0,1,0,1,0,1,1, 
1,9,1,0,1,0,1,1,1,0,1,1,0,1,-1,1,-1,0,—- 
i cud 9,-1,1,-1,0,-1,0,—-1,0, 
1;1,1,1,15;15,1,9,1,1,1 


vig? 
8, 1,1,1,1,1,1,1,1 
19040 DATA -1,1,-1,1,-1,1,0,1,90,1,1,1,1 
£151, 1,1,1,1,1,1,0,1,0,1,0,1,0,1,0,1,1, 
1,9,1,0,1,0,1,1,1,0,1,1,0,1,-1,1,-1,0,— 
1,0,-1,1,-1,0,-1,0,-1,1,-1,90,-1,0,—-1,0, 
-1,0,-1,1, 0,1,1,1,-1,1,-1,1,-1,1,-1,1, 
-1,1,0,1,1,1,1,1 


10060 DATA 9,1,0,1,0,1,0,1,0,1,0,1,0,1, 
9,1,0,1,0,1,—1,1,—1,1,-1,0,—1,1,1,1,1,9 
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p 1,1,1,0,1,90,1,0,1,0,1,1,1,1,;-1,1,-—1,;1 


í'71,0,-1,0,-1,0,-1,-1,-1,-1,0,-1,90,0,1, 

-1,1,-1,1,0,0,0,1,0,0,0,1,0,1,1,1,1,0,1 
,9,0,-1,1,-1,1 

10070 DATA-1,1,-1,1,-1,1,-1,1,-1,1,-1,1 

27l,1,-1,1,-1,1 . 

11909 DATA 1,1,1,1,1,1,0,1,0,1,-1,1,-1, 

1,-1,1,-1,1,-1,1,-1,0,-1,0,-1,1,-1,0,-1 
Ø,-1,1,-1,Ø,-1,1,-1,Ø,-1,1,-1,Ø,-1,1,Ø 
?:1,9,1,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,1,. 

lrOo trle tertata 

11Ø2Ø DATA 1,1,1,1,1,1,Ø,1,Ø,1,-1,1,-1, 

1,-1,1,-1,1,-1,1,-1,0,-1,0,-1,0,—-1,0,-1 
í'0,-1,1,-1,0,-1,0,-1,0,-1,1,-1,0,—-1, 1, 0 
;:1,1,1,1,0,1,0,1,1,1,0,1,0,1,1,1,0,1,0, 
1,09,1,0,1,1,0,1,-1,1,-1,1,-1,1,-1,1;-1, 

9,-1,1,-1,0,-1,1,-1,1,-1,1,-1,1 

11040 DATA 1,1,1,1,1,1,Ø,1,Ø,1,-1,1,-1, 

1,-1,1,-1,1,-1,1,-1,0,-1,0,-1,0,-1,0,-1 
;2,-1,1,-1,0,-1,0,-1,0,-1,1,-1,0,-1,1,0 
21 71,1,1,9,1,0,1,1,1,0,1,0,1,1,1,0,1,0, 
150,1:0;14,1,0,1,-1,151545 15 b 1, Eg lg da T, 

1,8,1,-1,1,-1,1 

11860 DATA 0,1,0,1,0,1,0,1,0,1,0,1,0,1, 

0,1,0,1,0,1,1,1,1,1,1,0,1,1,-1,1,-1,0,—- 

1,1,-1,0,-1,0,-1,0,-1,0,-1,1,-1,1,1,1,1 
:1;1,0,1,0,1,0,1,-1,1,-1,0,-1,0,0,-1,—1 
t7, 71,-1,0,0,0,-1,0,0,0,—1,0,—1,1,—-1,1 
;,2,1,0,0,1,1,1,1 

11870 DATA 1,1,1,1,1,1,1,1,1,1;,1,1,1,1, 
1,1,1,1 

20000 DEF PROCnoise 

20010 A$=187:B%=179 

20020 SOUND 2,VOL$,109,2 

20030 SOUND 2,VOL$,121,1 

20040 SOUND 2,VOL1%,B%, I 

20050 SOUND 2,VOL1$,A$,1 

20060 SOUND 2,VOL1$,255,1 

20070 SOUND 2,VOL1$,B$,1 

20080 SOUND 2,VOL1$,A$,1 

20090 SOUND 2,VOL1%,B%, | 

20100 ENDPROC 

20110 DEF PROCnoise2 

20120 FOR A%=1ØØ TO 200 STEP 25 | 
20130 SOUND 1,VOL1$,A$-4,1:SOUND 1,VOLI 
%,A%,1:SOUND 1,VOL1%,A%+4,1:SOUND 1,VOL 
1%,AS+8, I 

20140 SOUND 1,9,1,1 

20150 NEXT 

20160 ENDPROC 

20170 ON ERROR OFF 

20180 MODE7:IF ERR<>17 REPORT: PRINT" at 
line ";ERL 
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IF YOU WRITE TO US 


BACK ISSUES (Members only) SUBSCRIPTIONS 

ALL back issues are kept in print (from Send all applications for membership, 
April 1982). Send 90p per issue PLUS an subscription renewals, and subscription 
A5 SAE to the subscriptions address. | queries to the subscriptions address. 
This offer is for members only, so it 

is ESSENTIAL to quote your membership MEMBERSHIP COSTS: 

number with your order. Please note £5.40 for 6 months (5 issues) 
that the BEEBUG Reference Card and £9.90 for 1 year (10 issues) 
BEEBUG supplements are not supplied European Membership £16 for 1 year. 


with back issues. ELsewhere (Postal zones) 


Nw Zone A £19, Zone B £21, Zone C £23 
Subscriptions & | 
rer ap SOFTWARE AND ROM OFFER (Members only) 


Software Address se ONE NE MT 
BEEBUG These are available from the 


PO BOX 109 subscription address, which is our NEW 


NOTE OUR NEW 
SUBSCRIPTIONS 


ADDRESS High Wycombe software address also. (Note that this 
Bucks does not apply to Wordwise or Beebcalc 
HP11 2TD - in this instance please see magazine 


for details). 


IDEAS, HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Substantial articles are particularly welcome and we Editorial Address. 
will pay around £25 per page for these, but in this BEEBUG 

case please give us warning of anything that you PO Box 5Ø 

intend to write. In the case of material longer St Albans 

than a page, we would prefer this to be submitted on Herts 

cassette or disc in machine readable form using AL] 2AR 

"Wordwise", "Minitext Editor" or other means. If you 

use cassette, please include a backup copy at 300 

baud. . 
We will also pay £1Ø for the best Hint or Tip that we publish, and £5 to the next 
best. Please send all editorial material to the editorial address opposite. If you: 
require a reply it is essential to quote your membership number and enclose an SAE. 


BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Edited by Mike Williams. Technical Editor: Philip Le Grand. 

Production Editor: Phyllida Vanstone. Technical Assistant: Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to David Graham, Sheridan Williams, Adrian løst, John Yale, 
Matthew Rapier and Tim Powys-Lybbe for assistance with this issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those.of the Publisher, BEEBUG Publications Limited. 

BEEBUG Publications Ltd (c) December 1983. 


EEBUG NEW ROM OFFER 


Å special arrangement has been ENE betuden Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5,85 including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. 

If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 
charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have 
been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


Please note that we cannot accept EPROM-based operating systems (0.1 or 1.0) in 
Lieu of payment. This can only be performed by Acorn dealers or by Acorn's service 
centre at Feltham, and applies only to users of the 0.1 O.S. 


ADDRESS FOR 1.2 0.5. IF ORDERED ON ITS OWN:- ROM Offer, BEEBUG, PO Box 109, 
High Wycombe, Bucks, HP11 2TD. PLEASE ALLOW 28 DAYS FOR DELIVERY. 
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* Simply plugs into the BBC Micro 
* No soldering necessary 


* Increases the sideways ROM capacity 
to 16 


* Fully buffered - allows all sockets 
to be used 


* Complete with full and detailed 
instruction booklet. 


* Accepts 16K RAM in special sockets 
* Battery back up facility for RAM 
* As used at BEEBUG 


* Reviewed in BEEBUG vol.2 number 6 


j | HOW TO ORDER 


Please send your order with a cheque / postal order made payable to BEEBUG, and 


enclose your membership number. We are unable to supply the board to overseas 
members. 


The address for SIDEWAYS is: 
BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. HP11 2TD. 
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To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the  tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


Previous cassettes: Vol.1 No.1Ø, 
Vol.2 No.1, Vol.2 No.2, Vol.2 No.3, 
Vol.2 No.4, Vol.2 No.5, Vol.2 No.6. 


This month's cassette (Vol.2 No.7) 


includes: Computer Aided Design 
Program, Killer dice game, Teletext 


We are able to offer members 
subscription to our magazine 
cassettes. Subscriptions will be for 
a period of one year and are for ten 
consecutive issues of the cassette. 
If required, subsriptions may be 
backdated as far as Vol.1 No.1Ø, 
which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
subscription please write to the 
address below, quoting your 
membership number and the issue from 
which you would like your 
subscription to start. å 


BEEBUG MAGAZINE BINDER OFFER 
via gr rad 


A hard-backed binder for the BEEBUG 
magazine is now available. These 
binders are dark blue in colour with 
'BEEBUG' in gold lettering on the 
spine. They allow you to use the 
whole of the first volume of the 
magazine as a single reference book. 
Individual issues may be easily added 
or removed. The binders will also 
conveniently hold less than 19 
issues, so that you can use it while 
you build up Volume 2 also. 


på 


Mere 


(part 3) programs, Galactic Invasion 
game, Twelve Days of Christmas music, 
LINK utility for disc users, 
Percussion Machine, Screen Freezer, 
Chequer Board, Alien Destroyer Demo. 
All magazine cassettes cost £3.00 
each. For ordering information see 
BEEBUGSOFT advertisement at the back 
of this month's magazine supplement. 


CASSETTE SUBSCRIPTION ADDRESS: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 

PO Box 129, High Wycombe, Bucks, HP11 
ZTD; ` 


CASSETTE SUBSCRIPTION PRICE: 

UK £33 inc VAT and p&p 

OVERSEAS (inc Eire) £39 inc p&p 
(no VAT payable). 


BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 
Europe £4.90 inc p&p (VAT not charged) 
Elsewhere £5.90 inc p&p 
(VAT not charged) 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, PO Box 
199, High Wycombe, Bucks, HPll  2TD. 
Please allow 28 days for delivery on 
U.K. orders. 


